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Disegnare in alta risoluzione 

Ho visto pubblicati sulla vostra rivista pa- 
recchi programmi per il disegno in alta ri- 
soluzione ma, a causa della loro comples- 
sità, non ne ho mai compreso bene il fun- 
zionamento. Vi sarei grato se poteste 
proporre un programmino molto sempli- 
ce per tracciare linee sulla pagina grafica, 
spiegandone i principi di funziona- 
mento. 

P.Ferrari 

R.Per disegnare in pagina grafica occor- 
re in primo luogo calcolare le coordinate 
X e Y del punto da plottare, quindi attiva- 
re il bit corrispondente a quelle coordi- 
nate. 

Il seguente programmino consente di di- 
segnare in alta risoluzione usando i tasti 
cursore. Verrà attivato e pulito automati- 
camente lo schermo in alta risoluzione - 
ci vogliono circa 20 secondi - quindi il 
computer aspetterà che venga premuto 
uno dei tasti cursore. 


1 0 PRINT[CLR][BLU]";:X*1 60:Y=1 00 
20 FORR= 1 024T02023 :PO- 

KER,230:NEXT 

30 POKE53272,PEEK(53272)OR8:PO- 
KE53265.PE 
EK(53265)OR32 

40 FORR=81 92T01 6383:PO- 

KER,0:NEXT 

50 GETA$:IFA$=""THEN50 
60 IFA$="[SU]"THENY=Y-1 :GOT01 1 0 
70 IFA$="[GIU']"THENY=Y+1 :GO- 

TO110 

80 IFA$="[DES]"THENX=X+1 :GO- 

TO110 

90 IFA$="[SIN]"THENX=X-1 :GOT01 1 0 
100GOTO50 


110 P*(8192+(IN- 

T(Y/8))*320+(INT(X/8))*8+ 

(YAND7)) 

1 20 POKEP,PEEK(P)ORINT(2 A (7- 

(((INT(X)/8) 

-INT(INT(X)/8))*8))) 

130GOTO50 

La linea 10 cancella lo schermo e pone il 
punto di partenza del plottaggio al cen- 
tro dello schermo (X=160 ed Y=100). La 
linea 20 pone il colore di sfondo a blu 
scuro e quello delle linee plottate ad az- 
zurro. La linea 30 entra in modo ad alta ri- 
soluzione e muove la mappa di bit nella 
meta' superiore del blocco di memoria 
da 1 6 Kbyte indirizzabile dal chip VIC-II. 

La linea 40 pulisce la pagina grafica. La li- 
nea 50 legge il tasto premuto e quindi 
aggiorna il valore delle coordinate. 

Le linee 110 e 120 accendono il punto 
sullo schermo, e la linea 130 rimanda alla 
linea 50 di lettura del tasto premuto. 

L’ alta risoluzione permette di avere un 
controllo bit per bit di tutto lo schermo, e 
non solo di un singolo carattere o di un 
singolo SPRITE. Ciò' rende possibile 
creare disegni estremamente elaborati, 
ma rende più complesse le procedure 
da seguire per ottenerli. Un carattere è 
composto da 64 bit, uno SPRITE da 504 
bit, lo schermo in alta risoluzione è com- 
posto da 64000 bit, e richiede quindi la 
disposizione di un intero blocco di me- 
moria di 8000 byte: la metà esatta di 
quanto possa gestire il chip VIC-II. 

Per ulteriori delucidazioni sui sistemi di 
plottaggio in pagina grafica rimamndiamo 


alla serie di articoli "Uno sguardo alla gra- 
fica del C64" precedentemente pubbli- 
cati. 

Che cosa ò un font 

Leggo spesso, a proposito dei set di ca- 
ratteri, il termine "font". Vorrei sapere 
che cosa si intende esattamente con 
questa terminologia, e quali sono i princi- 
pali fattori che differenziano un tipo di ca- 
rattere da una altro. 

FLPeretti 

R.L’invenzione da parte di Gutenberg 
dei caratteri mobili nel 1430 rubò in prati- 
ca il lavoro agli amanuensi e a tutti coloro 
che utilizzavano con grande maestria ed 
amore la penna d'oca. In seguito il lavo- 
ro di scrittura passò principalmente nelle 
mani di coloro che dovettero creare nuo- 
vi tipi di caratteri che potessero essere 
degni successori di quelli splendidi che 
solamente la mano umana fino ad allora 
aveva saputo produrre. Questo lavoro è 
stato, ed è ancora, molto noioso dal mo- 
mento che la creazione di una famiglia di 
60-70 caratteri di uno stesso tipo richie- 
de, per una buona riuscita, moltissimo 
tempo. 

La maggior parte dei caratteri attualmen- 
te utilizzati ha centinaia di anni alle spal- 
le; caratteri di questo genere sono stati 
adottati in tutto il mondo dopo lunghi an- 
ni di prove, ed assunti generalmente co- 
me standard. 

I tipi (che in gergo si dicono anche "oc- 
chi") di caratteri sono generalmente rag- 
gruppati in famiglie, in base alle loro somi- 
glianze, il che consente di utilizzarli assie- 
me in maniera armoniosa. Un font è un 
set completo di caratteri aventi un aspet- 
to ed una dimensione (che si dice, in ger- 


4 


SUPERCOMMODORE C64 &128 10/87 


go tipografico, "corpo") particolare. I 
membri delle varie famiglie si distinguo- 
no in base a due variabili, la prima delle 
quali è la grossezza, o consistenza, del- 
le aste che compongono le lettere. Per 
questo motivo un tipo di carattere può 
avere molte versioni, quali quella legge- 
ra, quella regolare (o da libro), semigras- 
setto, grassetto, forte e supergrassetto. 

La seconda variabile è la larghezza (o 
"spessore") del carattere. Le varianti di 
un particolare tipo di carattere possono 
essere create allargando o restringendo 
le lettere, conservando però contempo- 
raneamente la medesima altezza della 
lettera. Un carattere condensato risulta 
essere schiacciato orizzontalmente, 
mentre uno allargato lo è verticalmente. I 
caratteri condensati vengono normal- 
mente utilizzati allorché è necessario rag- 
gruppare molte lettere entro un'area ri- 
stretta, quale ad esempio un elenco di in- 
gredienti o una ricetta di cucina. 

La maggior parte delle famiglie di caratte- 
ri possiede due stili: il romano (che è lo 
stile "normale"), come quello che state 
leggendo, ed il corsivo (qui utilizzato per 
il testo della lettera), che è inclinato ver- 
so destra ed assomiglia vagamente ai ca- 
ratteri calligrafici. Alcuni tipi di caratteri, 
che non sono realmente corsivi, utilizza- 
no versioni inclinate di caratteri in stile ro- 
mano; queste versioni inclinate sono 
chiamate "oblique". Il diffuso font "Helve- 
tica", ad esempio, ha un carattere di que- 
sto tipo. 

Le famiglie di caratteri possono essere 
molto ampie, formate da caratteri sia ro- 
mani che corsivi che possono variare sia 
in spessore che in consistenza. L'intera 


famiglia Helvetica, ad esempio, compren- 
de ben 40 tipi di "occhi" differenti. Dall’al- 
tra parte, la famiglia del Times Roman è 
composta da meno di 1 0 membri. 
Un’importante divisione tra i vari tipi di ca- 
ratteri deve essere fatta in base al come 
le lettere sono disegnate. Il tipo con le 
terminazioni (dette anche "grazie") si di- 
stingue per il fatto che le aste che com- 
pongono le lettere possono variare in 
consistenza e per la presenza di termina- 
zioni, dei piccoli prolungamenti al termi- 
ne delle aste. Entrambe aumentano la 
leggibilità e l'estetica di questi tipi di carat- 
teri. 

Il più diffuso font con le terminazioni uti- 
lizzato in informatica, il Times Roman, 
ideato per il quotidiano Times di Londra 
nel 1931, è il prodotto di un lunghissimo 
lavoro inteso a creare un carattere mo- 
derno con terminazioni avente un’ottima 
leggibilità. Il fatto che il Times Roman sia 
divenuto, con il passare del tempo, un 
carattere standard è un attestato di gros- 
so merito per i suoi ideatori ed è infatti il 
carattere utilizzato dalle più importanti ri- 
viste a livello mondiale proprio per la sua 
facilità di lettura. 

In contrasto con i caratteri con le termina- 
zioni, quelli che ne sono sprovvisti (detti 
anche "caratteri bastoni") hanno la ten- 
denza ad avere le aste tutte circa dello 
stesso spessore e non hanno le decora- 
zioni tipiche del tipo con le "grazie". Que- 
sti caratteri hanno un aspetto moderno, 
pulito, regolare il che li rende più leggibili 
dalle lunghe distanze: è questo il motivo 
per cui vengono spesso utilizzati nelle in- 
segne e nelle locandine. Il carattere sen- 
za terminazioni più diffuso è l'Helvetica 


cui si accennava prima, ed è stato ottenu- 
to modificando quelli che vennero pro- 
gettati nel 1930 presso la scuola di de- 
sign del Bauhaus in Germania. Sebbene 
l'Helvetica sia leggibile in piccole dimen- 
sioni e particolarmente utilizzato come 
carattere di testo, probabilmente lo ve- 
drete molto più spesso nei logotipi delle 
varie aziende, nei cartelli ed in tutte le va- 
rie forme di arredo urbano. 

11 Courier, un altro carattere tipico degli 
utilizzi con il computer, venne originaria- 
mente creato per le macchine da scrive- 
re ed è attualmente utilizzato in quasi tut- 
ti gli uffici del mondo. Mentre negli uffici 
la tecnologia di stampa ha sempre cerca- 
to di avvicinarsi ai caratteri di tipo profes- 
sionale, questo è un caso in cui, ironia 
della sorte, la tecnologia tipografica cer- 
ca di imitare il risultato prodotto da una 
stampante per ufficio. 

Le misure utilizzate per descrivere il ca- 
rattere sono i "pica" (nel mondo anglo- 
sassone) ed i punti. Il pica è formato da 

12 punti, e sebbene non esista un'esat- 
ta correlazione tra le unità di misura dei 
caratteri ed il sistema anglosassone o 
quello metrico-decimale, in un pollice ci 
sono 6 pica (perciò 72 punti). 

Le dimensioni dei caratteri (che in gergo 
tipografico si dicono "corpi") vengono 
espresse in punti, il che fa riferimento al- 
l'altezza del blocco originale su cui si tro- 
va la lettera. Questa misura è all'incirca 
uguale alla distanza intercorrente tra la 
parte superiore dell'ascendente (quella 
parte di una h o di una k, per esempio, 
che va verso l'alto) e la parte inferiore del 
discendente (il tratto più basso di una y 
odi una q). 


Laboratorio « 




ELETTRONICA 

Grande Enciclopedia Jackson di Elettronica Pratica 


Laboratorio di Elettronica è la prima grande 
opera teorico-pratica di Elettronica del 
Gruppo Editoriale Jackson: la vera e propria 
enciclopedia-laboratorio, in cui il lettore 
troverà sia le nozioni teoriche per 
im padronirsi perfettamente della materia, sia 

ampie sperimentazioni Pratiche- 
Laboratorio di Elettronica da o gg i in edicola , 
è uno strumento utilissimo sia per 
il principiante, sia per l’hobbista esperto, 
per comprendere a fondo il mondo 
dell’Elettronica e dei microcircuiti. 
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MLX 


di C. Brannon 

trad. e adatt. di M. Crìstuib Grizzi 


M LX é un programma che permette 
di inserire listati in linguaggio mac- 
china esenti in modo assoluto da errori 
e senza la perdita di tempo del dover 
battere e controllare lunghe sequenze 
di istruzioni DATA. 

Molti dei nostri listati di programmi in lin- 
guaggio macchina hanno il formato MLX 
(li riconoscete dal fatto che sono esclu- 
sivamente numerici) e richiedono quindi 
che MLX sia caricato in memoria ed ese- 
guito prima della battitura del listato. 

MLX vi chiederà l'indirizzo della locazio- 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel- 
l’articolo che accompagna il listato. 

MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di reinse- 
rire la linea errata. L'ultimo numero battu- 
to di ogni linea rappresenta il checksum 
e viene visualizzato in reverse. 

Sono inoltre disponibili altri comandi, 
quali: 

MLX 


SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che vole- 
te battere ed é utile nel caso si inseri- 
scano i listati in più parti. 

SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 
LOAD "nome del file",1 ,1 per il registrato- 
re, oppure LOAD "nome file",8,1 per l'uni- 
tà a dischi, salvo diverse indicazioni da- 
te negli articoli corrispondenti ai vari 
programmi. Il programma sarà general- 
mente mandato in esecuzione con una 
SYS (indirizzo di partenza). 

La versione originaria di MLX per C64 ha 
subito, dalla prima pubblicazione, diver- 
si ritocchi e miglioramenti, fino alla ver- 
sione 2.0 qui presentata. 

E’ stato in primo luogo modificato il colo- 


re di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; é cambiata la forma del cursore e, 
cosa più importante, é stato aggiunto 
un tastierino numerico per gli utenti che 
si trovano più a loro agio con una diver- 
sa disposizione dei tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ridefiniti alcuni tasti alfabeti- 
ci, in modo da generare ugualmente dei 
numeri. I tasti ridefiniti sono i seguenti: 

U I O 789 

H J K L diventano 0 4 5 6 
M , . 12 3 

Le persone abituate a usare tali tastieri- 

ni accresceranno senz'altro, in brevissi- 

mo tempo, la velocità di battitura dei pro- 
grammi in linguaggio macchina. 


1 00 PRINT” {CLR } {CYN } " ; CHR$ (1 42) ;CHR$ (8) ; : 

POKE53 280 , 0 : POKE53 28 ! ,0 :rem 71 

101 POKE78 8 , 52 : REM DISABILITA RUN/STOP 

:rem 89 

110 PRINT” {RVS} { 40 SPAZI}"; :rem 176 
120 PRINT” {RVS} { 15 SPAZI } {DES } {OFF } [<*>] 
_£ { RVS } {DES } { DES } { 2 SPAZI }[<*>] {OFF } 

[<*>] £{RVS}£{RVS} { 13 SPAZI}"; 

treni 2 50 

130 PRINT” { RVS } { 15 SPAZI } {DES} [<N>] [<H>] 
{DES} { 2 DES} {OFF}£{RVS}£ [<*>] {OFF} 
[ < * > ] { RVS } { 13 SPAZlT"; : rem 220 

140 PRINT” {RVS} { 40 SPAZI}” : rem 120 

200 PRINT” { 2 GIU * } { PUR} EDITOR DI CODICE 
MACCHINA VERSIONE 2.0{ 3 GIU 1 }” 

: rem 126 

210 PRINT” [<5>]{ 2 SU} INDIRIZZO DI PARTE 
NZA { 2 SPAZI}”; : INPUTS: F=1 -F:C$=CHR$ ( 
31+11 9*F) : rem 85 

220 IFS<2560R (S>40960ANDS<491 52)ORS>53247 
THENGOSUB3000 : GOTO 2 1 0 : rem 235 

225 PRINT: PRINT: PRINT : rem 180 

230 PRINT" [<5>]{ 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SPAZI } " ; : INPUTE : F = 1 -F : C$=CHR$ ( 3 
1 + 11 9*F) : rem 92 

240 IFE< 2560R (E>40960ANDE< 491 52)ORE>53 24 7 
THENGOSUB3000 : GOTO 2 36 :rem 183 

250 IFE<STHENPRINTC$ ; " {RVS } INDI RI ZZO CONC 


255 

260 

300 

310 

315 

320 

390 

400 

410 

41 4 


415 

417 

420 

430 

440 

450 


LUSI VO< INDI RI Z.ZO INIZIALE” treni 200 
IFE<STHENGOSUBl 000:GOT0230 :rem 1 1 9 
PRINT: PRINT: PRINT :rem 179 

PRINT” {CLR}" ; CHR$ (14) : AD=S : POKEV+2 1 ,0 

:rem 225 

A= 1 : PRINTRIGHT$ (”00 00”+MID$ (STR$ (AD) , 
2 ) f 5 ) FORJ = ATO 6 :rem 227 

FORJ=AT06 : rem 3 3 

GOSUB570 : IFN = - 1 THENJ=J+N : GOTO 320 



: rem 

228 

I FN = - 2 1 1THEN71 0 

: rem 

62 

IFN=-204THEN790 

: rem 

64 

IFN=- 206THENPRINT: INPUT" {GIU 

'} INSERÌ 

RE IL NUOVO INDIRI ZZO" ; ZZ 

: rem 

1 3 


IFN = - 206THENIF ZZ<SORZZ >ETHENPRI NT" 
{RVS }ESCE DAL CAMPO DI VALORI INDICAT 
O" trem 105 

IFN=- 206THENIFZZ<SORZZ>ETHENGOSUBl 000 
: GOTO 4 1 0 trem 20 2 

I FN=- 20 6THENAD=ZZ: PRINT: GOTO 31 0 

trem 238 

IFNO-1 96THEN480 : rem 133 

PRINT: INPUT” LI STATO: DA" ;F: PRINT" 

{ 9 SPAZI }A" ; : INPUTT :rem 183 

I FF< SORF >EORT< SORT>ETHENPRI NT”MI N IMO ” 
; S; " MASSIMO" ; E; " ! [ < 5> ] ” : GOTO430 

:rem 147 

FORI=FTOTSTEP6: PRINT: PRINTRIGHT$ ("000 
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0" +MID$ (STR$ (I) ,2) ,5) :rem 30 

451 FORK=0TO5 : N=PEEK ( I +K) : PRINTRIGHT$ ( " 00 
"+MID$ (STR$ (N) ,2) ,3) -:rem 66 

460 GETA$ : IFA$>" "THENPRINT: PRINT: G0T031 0 

:rem 25 

470 NEXTK : PRINTCHR$ (20) ; : NEXTI : PRINT: PRIN 
T : GOTO 310 :rem 50 

480 IFN<0THEN PRINT: GOTO 31 0 : rem 168 

490 A ( J ) =N : NEXTJ :rem 199 

500 CKSUM=AD- INT ( AD/256 ) * 256 : FORI = 1 T06 :CK 
SUM= (CKSUM+A ( I ) ) AND2 55 : NEXT :rem 200 

510 PRINTCHR$ (1 8) ; : GOSUB570 : PRINTCHR? (146 

) ; : rem 94 

511 IFN=- 1 THENA=6 : GOT031 5 :rem 254 

51 5 PRINTCHRS (20) : IFN=CKSUMTHEN530 

:rem 122 

520 PRINT: PRINT" {RED} LA LINEA E’ STATA IN 



SERITA IN MANIERA" 

: rem 

1 57 

525 

PR INT" ERRATA . RIPETERE [<5> 

] " : PRINT: GO 


SUBÌ 000 : GOTO 31 0 

: rem 

27 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI = 1 T06 : POKEAD + I- 1 ,A(I) : 

NEXT: POKE54 


272,0: POKE 54273,0 

: rem 

227 

550 

AD=AD+6: IFAD<ETHEN31 0 

: rem 

21 2 

560 

GOTO 71 0 

: rem 

1 08 

570 

N=0 : Z=0 

: rem 

88 

580 

PRINT" [<£>]"; 

: rem 

81 

581 

GETA$ : I F A$ = " " THEN 5 8 1 

: rem 

95 

582 

AV=- (A$ = "M" ) - 2* (A$ = " ,") -3* 

(A$ = " .") 

-4* 


( A$ = " J" ) - 5* (A$ = "K" ) -6* (A$ = 

” L" ) 




:rem 

41 

583 

AV=AV- 7* (A$ = "U" ) - 8* ( A$ = " I " 

)-9* ( A$ = 

"O" 


) : IFA$="H" THENA$="0" 

: rem 

1 34 

584 

IFAV> 0THENA$ =CHR$ (48+AV) 

: rem 

134 

585 

PRINTCHR$ (20) ; :A=ASC(A$) : IFA=1 30RA=44 


ORA=32THEN670 

: rem 

229 

590 

IFA>1 28THENN=-A: RETURN 

:rem 

1 37 

600 

IFAO20THEN630 

: rem 

10 

610 

GOSUB690: IFI=1 ANDT=44THENN 

=-l : PRINT" 


{SIN} {SIN}" ; :GOTO690 

: rem 

1 72 

620 

GOTO 570 

: rem 

1 09 

630 

IFA<48ORA>57THEN580 

: rem 

1 05 

640 

PRINTAS; :N=N*1 O+A-48 

: rem 

106 

650 

IFN>2 55THENA=20 : GOSUBl 0 00 : 

GOTO 600 




: rem 

229 

660 

Z = Z + 1 : IFZ< 3THEN580 

: rem 

71 

670 

IFZ=0THENGOSUBl 000:GOTO570 

: rem 

114 

680 

PRINT" : RETURN 

: rem 

240 

690 

S % = PEEK ( 209 ) +2 56* PEEK (210) +PEEK ( 21 1 ) 



:rem 

1 49 

691 

FORI = 1 T03 : T=PEEK (S%- I ) 

: rem 

67 


695 IFT< >44ANDT< >58THENPOKES%- 1,32: NEXT 

:rem 205 

700 PRINTLEFT$ ( " { 3 SIN I- 1 );: RETURN 

: rem 7 

710 PRINT" {CLR} {RVS}*** SAVE *** 

{ 3 GIU' }" : rem 236 

715 PRINT" { 2 GIU'} PREMERE {RVSjRETURN 
{OFF} PER USCIRE DAL SAVE {GIU 1 }" 

:rem 103 

7 20 F$ = "" : INPUT" {GIU' }NOME DEL FILE";F$:I 
FF$=" "THENPRINT: PRINT: GOT031 0 

:rem 42 

730 PRINT: PRINT" { 2 GIU '} {RVS }N {OFF } ASTRO 
O {RVS }D {OFFUSCO: (N/D) " :rem 128 

740 GETA$ : IFA$< >,"N"ANDA$< >"D"THEN740 

:rem 30 

750 DV=1 -7* (A$="D" ) : IFDV=8THENF$ = " 0 : "+F$ : 
OPENl 5,8, 1 5 , "S"+F$ :CLOSEl 5 :rem 212 

760 T$=F$ : ZK=PEEK ( 53 ) +256*PEEK ( 54 ) -LEN (T$ 
) : POKE782 ,ZK/256 :rem 3 


762 POKE781 , ZK-PEEK ( 7 82 ) * 2 56 : POKE780 , LEN ( 

T$ ) : SYS65469 : rem 109 

763 POKE780, 1 :POKE781 ,DV: POKE782 , 1 :SYS654 

66 :rem 69 

765 K=S : POKE254 , K/256 : POKE253 , K-PEEK ( 254 ) 

* 2 56 : POKE780 , 2 53 :rem 17 

766 K=E+1 : POKE782 , K/256 : POKE781 ,K-PEEK(78 

2) *256: SYS65496 :rem 235 

770 IF (PEEK (783) ANDl ) OR ( 1 91 ANDST) THEN780 

: rem 111 

775 PRINT" {GIU' }FATTO. {GIU' }":GOTO310 

:rem 201 

780 PRINT" {GIU' }ERRORE NEL SAVE-RIPROVA! " 

: IFDV=1 THEN720 : rem 104 

781 OPENl 5,8,15:INPUT#15,El$,E2$:PRINTEl$ 

;E2$:CLOSEl5:GOTO720 :rem 103 

790 PRINT" {CLR} {RVS}*** LO AD *** 

{ 2 GIU' }" : rem 212 

795 PRINT" { 2 GIU ' } PREMERE {RVS } RETURN 
{OFF} PER USCIRE DAL LOAD{GIU' }" 

:rem 96 

800 F$ = "" : INPUT" { 2 GIU ' }NOME DEL FILE" ; F 
$ : IFF$=""THENPRINT:GOT031 0 :rem 115 
810 PRINT: PRINT" { 2 GIU ' } {RVS }N{OFF}ASTRO 
O {RVS}D{OFF} ISCO: (N/D)" :rem 127 
820 GETA$ : I FA$ < > " N " AND A$ < > " D " THEN 82 0 

:rem 28 

830 DV=1 -7* ( A$ = "D" ) : IFDV=8THENF$ = "0: "+F$ 

:rem 1.57 

840 T$=F$ : ZK=PEEK (53) +256*PEEK (54) -LEN (T$ 

) :POKE782,ZK/256 :rem 2 

841 POKE781 , ZK-PEEK (782) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 107 

845 POKE780 , 1 :POKE781 ,DV: POKE782 , 1 :SYS654 
66 :rem 70 

850 POKE780, 0:SYS65493 :rem 11 

860 IF (PEEK (783) ANDl) OR (1 91 ANDST) THEN870 

: rem 1 1 1 

865 PRINT" {GIU’ } FATTO GOT031 0 :rem 184 
870 PRINT" {GIU’ {ERRORE NEL LOAD-RIPETI ! 

{GIU' }" : IFDV=lTHEN800 :rem 19 

880 OPENl 5,8,1 5: INPUT#! 5,El$,E2$: PRINTEl $ 
;E2$:CLOSE15:GOTO800 :rem 102 

1 000 REM CICALINO : rem 231 

1001 POKE54296,! 5: POKE54 277 , 45 : POKE54278 , 

165 :rem 207 

1002 POKE54276,33:POKE54273,6: POKE 54272 , 5 

:rem 42 

1 00 3 FORT= 1 TO 2 0 0 : NEXT : POKE54 276 , 32 : POKE54 
273,0: POKE 54272,0: RETURN :rem 202 

2000 REM CAMPANELLO :rem 130 

2001 POKE 54296, 15: POKE 54277,0: POKE 54278, 2 

47 : rem 152 

2002 POKE54276 ,17: POKE54273 ,40: POKE 54272, 

0 :rem 86 

200 3 FORTUITO! 00 : NEXT: POKE54 276 , 1 6 : RETURN 

:rem 57 

3000 PRINTCS ; " {RVS } NON IN PAGINA ZERO O 
SU {DES } ROM " :GOTO! 000 :rem 240 
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Un editor di caratteri 
su 80 colonne 





di H.Rivera 

trad. ed adatt. di S.Colombo 


Con questo programma diventa 
possibile creare set di caratteri 
personalizzati per lo schermo a 
80 colonne del CI 28. I caratteri 
generati possono quindi essere 
salvati su disco e riutilizzati in se- 
guito all'Interno dei propri pro- 
grammi. E'richiesto l'uso di un 
monitor a 80 colonne e di un disk 
drive. 

La creazione di un set di caratteri defini- 
to dall'utente per lo schermo a 80 colon- 
ne del CI 28 presenta delle difficoltà mol- 
to superiori rispetto alla creazione di un 
normale set di caratteri per le 40 colon- 
ne. Questo programma si occupa auto- 
maticamente di risolvere per voi tutti i 
complessi problemi di allocazione di me- 
moria per lo schermo e per il set di carat- 
teri, consentendovi di generare, in mo- 
do semplice e rapido, nuovi caratteri. 

La risoluzione ottenibile con il CI 28 ed 
un monitor RGB a 80 colonne è di 640 
per 200 pixel: la stessa che si trova su 
un PC IBM con scheda grafica a colori 
standard. Se tuttavia osservate attenta- 
mente i caratteri disponibili sulle 80 co- 
lonne del CI 28, vi accorgerete che essi 
sono alquanto differenti - e meno leggibi- 
li -da quelli propri del PC IBM. 

Con questo programma potrete facilmen- 
te modificare questi caratteri per aumen- 
tarne al massimo le caratteristiche di leg- 
gibilità e di eleganza. 

Il programma è molto semplice da usarsi: 
tutti i suoi comandi sono elencati sullo 


schermo, consentendo un utilizzo rapi- 
do ed affidabile. 

Dopo il RUN, il programma visualizza il 
completo set di caratteri comprendente 
sia le maiuscole che le minuscole, insie- 
me all'elenco dei comandi ed a una gri- 
glia di disegno. Sinceratevi naturalmen- 
te di aver collegato un monitor a 80 co- 
lonne alla presa RGB del CI 28, pena l'im- 
possibilità di utilizzare il programma. 
Muovete semplicemente il cursore so- 
pra il carattere che desiderate modifica- 
re, utilizzando i tasti cursore con le frec- 
ce. Premete quindi RETURN (oppure il 
tasto E per Edit) per posizionare quel ca- 


rattere all'interno della griglia di disegno. 

Il cursore si posizionerà quindi all'interno 
della griglia e, attraverso la pressione del- 
la barra spaziatrice, sarà possibile "accen- 
dere" o "spegnere" ogni singolo pixel 
costituente il carattere. 

Al termine delle modifiche sul carattere, 
premete nuovamente RETURN per inse- 
rire nel set il nuovo carattere. La pressio- 
ne del tasto ESC annulla invece tutte le 
modifiche effettuate, riportando la forma 
del carattere alla composizione iniziale. 

La pressione di SHIFT e di CLR/HOME 
azzera la griglia, permettendo di disegna- 
re un nuovo carattere senza partire ne- 
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cessariamente dalla forma di un carattere 
preesistente; la pressione del tasto B po- 
ne il carattere in uno speciale buffer di 
memoria, mentre la pressione del tasto 
C copia nella griglia di disegno la forma 
del carattere che si trova nel buffer. Que- 
sti due tasti risultano quindi particolar- 
mente utili quando si desidera copiare la 
forma di un carattere per assegnarla ad 
un altro carattere. 

Per salvare l'intero set di caratteri, pre- 
mete il tasto @ : il set verrà salvato su di- 
sco con il nome CHAR.SET. Per caricare 
invece un set di caratteri precedente- 
mente salvato, premete il tasto L. 

Una volta creato un set di caratteri perso- 
nalizzato, potete caricarlo in memoria per 
utilizzarlo con i vostri normali programmi 
BASIC. La procedura da seguire in que- 
sto caso è: 

1. Inserire nel drive un disco contenen- 
te il set di caratteri personalizzati con il 
nome CHAR.SET e contenente il Pro- 
gramma 2 salvato con il nome 
"BOOT80". 


2.Digitare 

BLOAD"BOOT80" (RETURN) 

e, al termine del caricamento, digitare: 

SYS 3072 (RETURN) 

Il nuovo set di caratteri sarà da questo 
momento attivo nello schermo a 80 co- 
lonne del CI 28, e potrà essere utilizzato 
in congiunzione ai vostri normali pro- 
grammi BASIC. 


Note per II caricamento, la digita- 
zione ed II trasferimento su disco 
dei programmi 


Se si dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con il na- 
stro in corrispondenza dell'inizio del Pro- 
gramma 1 e digitare: 


LOAD (RETURN) 

Il Programma 1 andrà quindi mandato in 
esecuzione digitando: 

RUN (RETURN) 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su cas- 
setta è sufficiente inserire quest'ultima 
completamente riavvolta nel registrato- 
re, azzerare il contanastro e digitare: 

LOAD"*'' (RETURN) 

Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di no- 
me '*', il computer passerà in rassegna 
tutti i programmi incontrati visualizzando- 
ne il nome con il messaggio: 

FOUNDXXXX 

Sarà quindi utile annotarsi su un foglio i 
nomi dei programmi e la relativa posizio- 
ne del contanastro (sottrarre tre o quat- 
tro unità dal valore corrispondente all'ap- 
parizione del messaggio FOUND...). 

Gli abbonati alla sola rivista dovranno in- 
vece usare il programma MLX (vedere in 


altra parte della rivista) per digitare il lista- 
to in linguaggio macchina (Programma 
2). La procedura da seguire, in questo 
caso, è: 

1. Accendere il computer in modo 64 e 
digitare: 


POKE44,32:POKE32*256,0:NEW 

(RETURN) 

2.Caricare in memoria MLX (che sarà sta- 
to precedentemente digitato e salvato), 
e rispondere alle sue richieste circa gli in- 
dirizzi iniziale e finale con: 

indirizzo iniziale: 3072 
indirizzo finale: 31 91 

Dopo avere digitato e salvato il Program- 
ma 2 tramite MLX (usare il nome 
"BOOT80"), si potranno seguire per il ca- 
ricamento le istruzioni date più sopra per 
i possessori di cassetta. 

Ricordiamo che il Programma 2 in lin- 
guaggio macchina può essere trasferito 
da cassetta a disco direttamente carican- 
dolo con: 

LOAD "BOOT80",1,1 (RETURN) 

e salvandolo su disco con: 

BSAVE "BOOT80", 3072 TO 31 92 
(RETURN) 

Il Programma 1, essendo in BASIC, può 
invece essere trasferito su disco con la 
procedura normale. 


Editor 80 colonne 
Programma 1 

10 FAST :COLOR6, 1 :GRAPHIC1, 1 :DIM B ( 8 , 8 ) , BF 
(8,8) :CP=0 :U$=CHR$ (142) 

2 0 FORI=0TOl 92 : READX : POKEDEC ( "DO 0 " ) + 1 , X : S 
=S+X:NEXT:IFS<>24972THENPRINTCHR$ (14) " 
{ 1 SH E ) RRORE { 3 SPAZI ) DATA” -»-CHR$ ( 142 
) : END : ELSESYSDEC ( "D4 6" ) :GOTO140 
30 DATA 142,0,214,44,0,214,16,251,141,1,2 

14. 96.162.18.169.0. 32.0.13.232.169.0.3 

2.0. 13.162.31.169.1.32.0.13.162.18.76, 
0,13 

40 DATA 134,251,132,252,162,18,165,252,32 
,0,13,232,165,251,32,0,13,162,31,142,0 
,214,44,0,214,16,251,173,1,214,133,250 
' 96 

50 DATA 169,0,160,208,133,218,132,219,133 
,250,169,32,133,251,160,0,162,14,169,2 
18,32,116,255,145,250,200,192,8, 144,24 
2,24,165,250 

60 DATA 105,8,133,250,144,2,230,251,24,16 


5,218,105,8,133,218, 144,220,230,219,16 

5.219.201.224.144.212. 96 

70 DATA 169,0,160,32,133,218,132,219,162, 

18.169.32.32.204.205.232.169.0. 32.204, 

205.160.0. 162.14.169.218.32.116.255.32 
,202,205 

80 DATA 200,192,8,144,241,169,0,32,202,20 
5,136,208,250,24,165,218,105,8,133,218 
,144,224,230,219,165,219,201,48,144,21 

6.96 

90 POKEDEC ("DI 5”) ,ADAND255 
100 POKEDEC ("D0F") , AD/256 
110 POKEDEC ("D1C" ) ,BI 
120 SYSDEC ("D0C") 

130 RETURN 

140 PRINT" {CLR} { WHT } " ; TAB (7) U$ ; C O M M 
O D O R E{ 3 SPAZI } 1 28(5 SPAZI}C 
HARACTER{ 3 SPAZI }E D I T O R 
*>• 
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150 PRINTU$ ; TAB ( 8 ) " { 2 GIU'}[<7>]@ ABC 
DEFGHIJKLMNOPQRSTUV 
W X Y Z [ \ ] A 

160 PRINTU$;TAB (8) " { 2 SPAZI}! ";CHR$(34) 


" # $ % & • 

< 

) * + / “ 

. / 0 

12 3 4 


5 6 7 8 9 

• 7 

< - > ? 




PRINTUS ; TAB ( 8 ) 

"{ 1 SH * 

) { 1 

SH A) 


{ 1 SH B) { 

1 

SH C) { 1 

SH D) 



{ 1 SH E) { 

1 

SH F} ( 1 

SH G) 



{ 1 SH H) { 

1 

SH 1} { 1 

SH J) 


280 

{ 1 SH K) { 

1 

SH L) { 1 

SH M) 



{ 1 SH N) { 

1 

SH 0} { 1 

SH P) 



{ 1 SH Q) { 

1 

SH R} { 1 

SH S) 



{ 1 SH T) { 

1 

SH U) { 1 

SH V) 



{ 1 SH W) { 

1 

SH X} { 1 

SH Y) 


290 

{ 1 SH Z) { 

1 

SH +} [<-: 

>] { 1 

SH -} 


[< A >] [<*>] 

If 





PRINTUS; TAB (8) 

"{ 2 SPAZI) [<K>] [<I>] 


[<T>] [<@>] 

[<G>] [<+>] 

[<M>] 

[<\>] 

300 

{ 1 SH \) 

[<N>] [<Q>] 

[<D>] 

[<Z>] 


[<S>] [<P>] 

[<A>] [<E>] 

[<R>] 

[<w>] 

310 

[<H>] [<J>] 

[<L>] [<Y>] 

[<U>] 

[<0>] 

320 

{ 1 SH @}.[<F>] [<C>] [<X>] [<V>] 

330 

t <B> ] {GIU' } 

«* 





PRINTTAB (8) 

”{N}@ ABC! 

D E F i 

G H I J 

340 

K L M N 0 P 

Q 

R S T U V 

W X Y 

z [ \ ] 


A II 





350 

PRINTTAB (8) 

"{ 

2 SPAZI) ! 

";CHR$ (34) " # 


$ % & ' ( 

) * 

r ■*" f — • 

/ 0 1 

2 3 4 5 

360 

6 7 8 9 : ; 

< 

= > ? 




PRINTTAB (8) 

"{ 

1 SH *) { 

1 SH . 

A) 

370 

{ 1 SH B) { 

1 

SH C) { 1 

SH D) 



{ 1 SH E) { 

1 

SH F) { 1 

SH G) 


380 

{ 1 SH H) { 

1 

SH I) { 1 

SH J) 


390 

{ 1 SH K) { 

1 

SH L) { 1 

SH M) 


400 

{ 1 SH N) { 

1 

SH 0} { 1 

SH P) 



{ 1 SH Q) { 

1 

SH R) { 1 

SH S) 


410 

{ 1 SH I) { 

1 

SH U) { 1 

SH V) 


420 

{ 1 SH W) { 

1 

SH X) { 1 

SH Y) 


430 

{ 1 SH Z) { 

1 

SH +} [<-: 

>] { 1 

SH -} 

440 

[< A >] [<*>] 

»• 





PRINTTAB (8) 

•■{ 

2 SPAZI) [<K>] [<I>] 

450 

[<T>] [<@>] 

[<G>] [<+>] 

[<M>] 

K\>] 


{ 1 SH \) 

[<N>] [<Q>] 

[<D>] 

[<Z>] 

460 

[<S>] [<P>] 

[<A>] [<E>] 

[<R>] 

[<W>] 


[<H>] [<J>] 

[<L>] [<Y>] 

[<U>] 

[<0>] 

470 

{ 1 SH @) [<F>] [<C>] [<X>] [<V>] 


[<B>] " 





480 

SYS52332, ,14,50 




PRINTCHR$ (14) " 

'{CYN}<{ 1 

SH E}{ 1 SH N 



{ 1 SH T)( 1 SH E}{ 1 SH R}> - [<4>]S 
AVE CHAR{ 5 SPAZI}" :PRINTTAB( 52) M 
{CYN}< { 1 SH C}{ 1 SH L}{ 1 SH R}> - 
[<4>] AZZERA GRIGLIA" rPRINTTAB (50) " 

{ CYN } < { 1 SH S}{ 1 SH P}| 1 SH A} 

{ 1 SH Z}{ 1 SH I}{ 1 SH 0}>- [<4>] DI 
SEGNA{ 3 SPAZI }":PRINTTAB (52) ”{CYN}< 

{ 1 SH EH 1 SH S}{ 1 SH C}> - [<4>] A 
NNUL" 

250 PRINTTAB (56) " (GIU' } [<3>] ( 1 SH Q) - 


260 

270 


490 

500 

510 


520 

530 


(RED) FINE" 

SYS52332, ,14,0 

PRINTCHRS (14) "{ 3 SPAZI }{CYN){ 1 SH E 
- [<4>] EDIT GRIGLIAI 2 SPAZI }": PRINT 
"| 3 SPAZI HCYNH 1 SH S) - [<4>] CAMB 
IA SET CARATTERI " : PRINT" { 3 SPAZI) 
{CYN} @ - [<4>] SAVE SET CARATTERI" : PRI 
NT"{ 3 SPAZI) {CYN H I' -SH L) - [<4>]LO 
AD SET CARATTERI" 

PRINTCHRS (14) "{GIU* }| 3 SPAZI) {CYN} 

{ 1 SH C) - [<4>] COPIA CARATTERE DA 
{ 2 SPAZ I) BUFFER" : PRINT "{ 3 SPAZI) 
{CYN) { 1 SH B) - [<4>] COPIA CARATTERE 
IN BUFFER" 

SYS52332, , 13, 1 :F0RX=1T08 :PRINTTAB (36) 

" { WHT } " : NEXT : F0RX=1T08 : FORY=l 

T08 : B (X, Y) =0 :NEXTY, X: PS=1 : LN=1 :CH=1 :C 
L=1 : OF=0 

IFOF=OTHENSYS52332, , 2+CL, 6+ (CH*2) :ELS 
E SYS52332, , 7+CL, 6+ (CH*2) 

PRINTCHRS (27) "F"CHR$ (27) "S"; 

GETKEYAS 

IFA$=" { SU) "THENCL=CL-1 : IFCL<1THENCL=4 

IFA$=" {GIU’ } "THENCL=CL+1 : IFCL>4THENCL 
=1 

IFA$=" { SIN) "THENCH=CH-1 : IFCH< 1THENCH= 
32 

IFA$=" {DES } "THENCH=CH+1 : IFCH>32THENCH 
= 1 

IFA$=CHR$ (13) ORA$="E"THENGOSUB590 :GOS 
UB540 

IFA$="@"THENGOSUB670 
I FA$= " L " THENGOSUB7 0 0 

IFA$="S"THENBEGIN : IFOF=OTHENOF=2048 :E 
LSEOF=0 : BEND 

IFA$="Q"THENPRINT" { 17 GIU • } "U$ : END 

GOTO300 

GETKEYAS 

IFA$=" {GIU ’ ) "THENLN=LN+1 : IFLN>8THENLN 
=1 

IFA$=" {SU} "THENLN=LN-1 : IFLN<1THENLN=8 

IFA$=" {DES } "THENPS=PS+1 : IFPS>8THENPS= 
1 

IFA$=" {SIN} "THENPS=PS-1 : IFPS<1THENPS= 
8 

IFA$=" "THEN BEGIN : IFB (PS, LN) =0 THEN 
B (PS, LN) =1 :PRINT" {RVS } {YEL} {OFF) 
{SIN}";: ELSE B (PS, LN) =0 :PRINT" {WHT} . 
{SIN}"; :BEND 
IFA$=CHR$ (13) THEN560 

IFA$=CHR$ (27) THENSYS 52332, , 13, 1 :GOTO 
580 

IFA$=" {CLR} "THENSYS52332, , 13, 1 :FORX=l 

T08 : PRINTTAB ( 3 6 ) " { WHT } " : NEXT : 

F0RX=1T08 : F0RY=1T08 : B (X, Y) =0 :NEXTY, X: 

IFA$="C"THENGOSUB7 90 
IFA$="B"THENGOSUB730 
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540 SYS52332, , LN+12, PS+35 :PRINTCHR$ (27) "U 

»• . 

$ 

550 GOTO430 

560 BS=DEC ("2000") :FD=BS+(8* ( ( (CL-1) *32)+ 
(CH-1) ) -1 ) +1+OF : FORAD=FDTOFD+7 : BT=0 : R 
V=0 : FORB=7TOOSTEP-1 : IFB ( 8-B, AD-FD+1 ) > 
0THENBT=BT+2 A B : ELSERV=RV+2 A B 

570 NEXTB : POKEAD , BT : POKEAD+ 1 0 2 4 , RV : NEXTAD 
: SYSDEC ( "D81" ) : SYS52332, , 12, 1 

580 F0RX=1T08 :PRINTTAB (36) " { WHT ) " 

: NEXT : F0RX=1T08 : F0RY=1T08 : B (X, Y) =0 : NE 
XTY,X: RETURN 

590 IFOF>OTHENBS=DEC ("2000") :FD=BS+ (16* ( ( 
(CL-1) *32) + (CH-1) ) -1) +1+OF+2048 :FORY= 
1T08 : F0RX=1T08 : B (X, Y) =0 : NEXTX, Y : G0T06 
10 

600 BS=DEC ("2000") :FD=BS+(16* ( ( (CL-1) *32) 
+ (CH-1) ) -1) +1+OF : F0RY=1T08 : F0RX=1T08 : 
B (X,Y)=0: NEXTX, Y 

610 FORAD=FDTOFD+7 : SYSDEC ("D25 ") ,,ADAND2 5 
5, AD/256 : IFPEEK (250) >0THEN630 

620 NEXTAD :GOTO650 

630 FORB=7TOOSTEP-1 : IF (PEEK (250 ) AND2 A B) > 
OTHENB (8-B, AD-FD+1) =1 

640 NEXTB :GOTO620 

650 F0RY=1T08 : F0RX=1T08 : SYS52332, , 12+Y, 35 
+X: IF B (X, Y) =1 THEN PRINT" (RVS) (YEL) 
(OFF)";: ELSE PRINT" (WHT } . " ; 

660 NEXTX, Y: RETURN 

670 SYS52332, ,23, 15:PRINTCHR$ (14)CHR$ (7) " 
[<6>] { 1 SH PJREMI <{ 1 SH E){ 1 SH S 
{ 1 SH C}> PER USCIRE, UN TASTO PER S 
ALVARE " ; : GETKEYAS 

Programma 2 

3072 : 07 6, 016, 012, 067, 072, 065, 052 
3078 : 082, 046, 083, 069, 084, 255, 113 
3084 : 000, 255, 000, 255, 169, 012, 191 
3090 : 170, 032, 104, 255, 169, 001, 237 
30 96 : 162, 008, 160,000,032, 18 6,0 60 
3102 : 255, 169,008,162,003,160,019 
3108 : 012, 032, 189, 255, 169, 000, 181 
3114 : 162, 000, 160, 032, 032,213, 129 
3120 : 255, 032, 231, 255, 169, 000, 222 
3126 : 160, 032, 133, 218, 132,219,180 


680 IFA$=CHR$ (27 ) THENSYS52332 , , 23, 1 :PRINT 
A$"Q"; : RETURN 

690 SCRATCH"CHAR . SET" : BSAVE"CHAR . SET" , P8 1 
92 TO P12288 : SYS52332, ,23,1: PRINTCHR$ 
(27) "Q"; : RETURN 

700 SYS52332, ,23, 15 :PRINTCHR$ (14) CHR$ (7) " 
[<6>] ( 1 SH P )REMI <{ 1 SH E}{ 1 SH S 
{ 1 SH C|> PER USCIRE, UN TASTO PER C 
ARI CARE GETKEYA$ 

710 IFA$=CHR$ (27) THEN SYS52332, , 23, 1 : PRI 
NTA$"Q"; : RETURN 

720 BLOAD"CHAR.SET",P8192 :SYSDEC ("D81") :S 
YS52332, ,22, 1 :PRINTCHR$ (27) "Q" ; : RETUR 
N 

730 IFOF=0THENBS=DEC ("2000") : FD=BS+ ( 16* ( ( 
(CL-1) *32) + (CH-1) ) -1) +1+OF :F0RY=1T08 : 
F0RX=1T08 : BF (X, Y) =0 :NEXTX, Y : GOTO750 

740 BS=DEC ("2000") :FD=BS+(16* ( ( (CL-1) *32) 
+ (CH-1) ) -1) +1+OF+2048 :F0RY=1T08 :FORX= 
1T08 : BF (X, Y) =0 : NEXTX, Y 

750 FORAD=FDTOFD+7 tSYSDEC ("D25") , ,ADAND25 
5, AD/256 : IFPEEK (250) >0THEN770 

7 60 NEXTAD : RETURN 

770 FORB=7TOOSTEP-1:IF (PEEK (250 )AND2 A B) > 
0THENBF (8-B, AD-FD+1 ) =1 

780 NEXTB :GOT07 60 

790 F0RY=1T08 :F0RX=1T08 : B (X, Y) =BF (X, Y) :NE 
XTX, Y 

800 F0RY=1T08 :F0RX=1T08 : SYS52332, , 12+Y, 35 
+X: IFB (X, Y) “1THENPRINT" (RVS } (YEL) 

{ OFF } " ; : ELSEPRINT " { WHT } . " ; 

810 NEXTX, Y: RETURN 


3132 : 162, 018, 169, 032, 032, 204, 165 
3138 :205, 232, 169, 000, 032, 204, 140 
3144 :205, 160, 000, 162, 014, 169, 014 
3150 : 218, 032, 116,255,032,202,165 
3156 :205, 200, 192, 008, 144, 241, 050 
3162 : 169, 000, 032, 202, 205, 136, 066 
3168 : 208, 250, 024, 165, 218, 105, 042 
3174 : 008, 133, 218, 144, 224, 230, 035 
3180 : 219, 165, 219, 201, 048, 144, 080 
318 6 : 216, 0 96, 255, 000, 255, 000, 168 


ABCDEFGHIJKLMNOPQRSTi 




V-" 
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La voce digitale 


di ICYakal 

trad. ed adatt. di M.Cristuib Grlzzi 


Parlare al vostro C64 e fare in mo- 
do che esso stesso vi risponda è 
più facile di quanto si possa cre- 
dere. Negli ultimi cinque anni, 
molte case costruttrici hanno po- 
sto In commercio sistemi di gene- 
razione vocale e di riconoscimen- 
to della voce, tutti compatibili 
con il C64. La tecnologia del rico- 
noscimento vocale non rappre- 
senta soltanto un notevole pas- 
so avanti nell'uso degli home 
computer, ma è attentamente se- 
guita nei suol sviluppi anche per 
I suoi possibili utilizzi nel settore 
dell'assistenza agli handicappati. 

L'idea del computer che può parlare, 
ascoltare, e rispondere direttamente alle 
domande poste dall’operatore ha affasci- 
nato da anni tutti gli appassionati. Centi- 


naia di racconti e film di fantascienza han- 
no ripreso questa idea del computer par- 
lante: basti ricordare i monologhi del ro- 
bot Robbie ne II pianeta proibito, oppure 
la tranquilla voce del computer HAL 
9000 in 2001 Odissea nello spazio, op- 
pure ancora le dispute verbali tra i due ro- 
bot R2D2 e C3PO in Guerre stellari o la 
voce femminile del computer dell'astro- 
nave Enterprise in Star trek. 

Nelle applicazioni pratiche tuttavia, la sin- 


tetizzazione di voce e il riconoscimento 
vocale hanno solo recentemente inizia- 
to ad occupare un posto tra gli interessi 
degli appassionati di home computer. I 
primi computer in grado di generare dei 
suoni non arrivavano più in là di qualche 
bip e bep, che ricorderemo nei primissimi 
giochini spaziali per VIC 20, Spectrum o 
Apple II. Questi giochi erano infatti ben 
costruiti dal punto di vista grafico, ma del 
tutto carenti sotto l'aspetto del sonoro, 
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proprio per le limitazioni con cui erano co- 
struiti i chip sonori di tali computer: il limi- 
te più sofisticato cui si giungeva era la 
creazione di una musichetta di sottofon- 
do che veniva ripetuta alTinfinito durante 
tutto lo svolgimento del gioco. 

Negli ultimi anni, e soprattutto dopo la 
comparsa ed il successo avuto sul merca- 
to dal C64, sono comparsi i primi pro- 
grammi (giochi, simulazioni, etc.) che, ol- 
tre a essere dotati di ottima grafica, con- 
tengono al loro interno delle vere e pro- 
prie voci umane pre-registrate che recita- 
no messaggi attinenti allo svolgimento 
del gioco o della simulazione. 

Per fare un esempio, molti utenti di C64 
saranno familiari con il messaggio "Stay 
awhile, stay forever!" lanciato dallo scien- 
ziato pazzo all’inizio di ogni partita a Im- 
possible missbn della Epyx. 

Gli sviluppatori di software ed i progettisti 
di periferiche hanno finalmente capito 
che il C64 è dotato di uno dei chip sono- 
ri più all’avanguardia tra gli home compu- 
ter: il SID (Sound Interface Device). In 
conseguenza, hanno iniziato a sfruttar- 
ne a fondo le caratteristiche per aumen- 
tare il grado di appetibilità commerciale di 
programmi e giochi che stavano gradata- 
mente diventando tutti più o meno 
uguali. 

La comparsa di effetti sonori eccezionali 
e della voce ha fornito una nuova spinta 
commerciale al software per C64, sia nel 
settore ludico che in quello educativo. 
Oltre a ciò, si è verificato un nuovo impul- 
so all'uso del C64 nel settore dell'assi- 
stenza agli handicappati, i quali possono 
ora comandare piccoli robot pilotati da 
un C64 direttamente con ordini vocali. 
Benché le aziende produttrici di sintetiz- 
zatori vocali e di apparecchiature per il ri- 
conoscimento della voce siano soltanto 
tre o quattro, esse continuano a migliora- 
re i propri prodotti per renderli sempre 
più facili da utilizzare e compatibili con 
una quantità sempre maggiore di so- 
ftware. 

Tre diverse categorie 

Possiamo pensare di suddividere in tre 
categorie il modo in cui la voce umana 
viene utilizzata nei programmi per micro- 
computer. La parlata può essere creata 
sia per l’uso in programmi commerciali, 
oppure "personalizzata" dall'utente in 
due diversi modi: digitalizzando oppure 
sintetizzando. 

Sebbene la digitalizzazione offra una par- 
lata molto realistica e veramente simile a 
quella umana, essa richiede una quanti- 
tà estremamente significativa di memoria 
RAM: la digitalizzazione richiede inoltre 
dell'hardware aggiuntivo per la codifica 


digitale del suono, mentre la voce - una 
volta digitalizzata - può essere riprodotta 
direttamente dal software senza più ri- 
chiedere apparecchiature esterne. 

La sintetizzazione richiede anch’essa 
dell'hardware aggiuntivo, e può produr- 
re un numero pressoché infinito di pa- 
role. 

La terza categoria è quella del riconosci - 
mento vocale , che non è altro che una 
forma diversa della digitalizzazione. L'u- 
tente parla in un microfono, ed il compu- 
ter sembra riconoscere il comando impar- 
tito a voce, eseguendo una certa funzio- 
ne pre-programmata relativa a quel co- 
mando che è stato impartito. 

Ciò eè possibile digitalizzando il coman- 
do vocale ed inserendolo nella memoria 
del computer (ovvero nel software): se il 
comando che si impartisce in seguito nel 
microfono e digitalizzato al momento ri- 
sulta uguale a quello memorizzato, il 
computer esegue una certa funzione 
programmata anch'essa nel software. 

Uno sguardo sui prodotti per "far 
parlare il computer" 

Soprattutto e, come sempre, negli Stati 
Uniti, vengono prodotti diversi accessori 
e programmi per dotare il proprio C64 
della voce; la Genesis Computer Corpo- 
ration ha prodotto per un certo periodo 
diverse apparecchiature, tra le quali il 
ComVoice Voice System, ora commer- 
cializzato dalla Votrax International. La 
Tronix ha prodotto il SAM (Software Auto- 
matic Mouth), un sintetizzatore vocale 
su disco; la stessa Commodore ha com- 
mercializzato il modulo Magic Speech, 
un sintetizzatore vocale che permetteva 
di aggiungere funzioni limitate di parlata 
ai giochi Gode Wizard of Wor. 

La Covox, un'azienda da anni nel setto- 
re del riconoscimento e della digitalizza- 
zione vocale, continua ad offrire prodotti 
per C64 in questo settore: il Voice Ma- 
ster ad esempio (provato anche sulle pa- 
gine di SuperCommodore) è un modulo 
per la digitalizzazione ed il riconoscimen- 
to della voce che si inserisce diretta, men- 
te nella porta joystick del C64. Il software 
di gestione offre molte possibilità, come 
la possibilità di parlare nel microfono e di- 
gitalizzare e memorizzare permanente- 
mente le parole pronunciate, per farle 
quindi riconoscere da normali programmi 
BASIC. Una volta memorizzate, le parole 
possono essere riprodotte dal C64 sen- 
za l'aggiunta dell’hardware esterno (se lo 
ricordate, abbiamo tempo fa incluso sulla 
cassetta allegata alla rivista un messag- 
gio digitalizzato in questo modo). 

La Votrax, un’altro produttore di accesso- 
ri di questotipo, commercializza lacartuc- 


cia Votalker per il C64: si inserisce nella 
porta espansioni e utilizza 8 Kbyte della 
RAM del C64. Questa cartuccia è un sin- 
tetizzatore di voce: occorre dunque digi- 
tare sulla tastiera le parole che si voglio- 
no udire, utilizzando parecchi accorgi- 
menti per evitare il consueto - e fastidio- 
sissimo - accento inglese tipico di tutti 
questi prodotti per la voce sintetizzata. 

Un altro sintetizzatore vocale per il C64 è 
l'inglese Voice Messenger prodotto dal- 
la Welwyn Currah (poi chiamato Hearsay 
1000 e commercializzato con il marchio 
Hearsay): è un accessorio che combina 
la sintetizzazione con il riconoscimento 
della voce, si inserisce nella porta espan- 
sioni e viene fornito con il software di ge- 
stione che permette di inserire la parlata 
nei programmi scritti dall’utente. Questo 
accessorio è compatibile con un vasto 
numero di programmi commerciali, come 
ad esempio quelli della Infocom, Epyx, 
CBS Interactive Learning, Batteries Inclu- 
ded, etc. 

Tale compatibilità rende possibile gioca- 
re ad un gioco di avventura basato sul te- 
sto - come ad esempio il famoso Zork 
- pronunciando a voce le frasi invece 
che digitandole sulla tastiera del C64. 

Una combinazione di periferiche 

Il riconoscimento della voce è senz'altro 
uno dei metodi più semplici e più intuitivi 
per impartire istruzioni ad un computer. 
Usando ad esempio uno dei prodotti so- 
pra descritti con il nostro SpeedScript, è 
possibile impartire a voce tutti i comandi 
di formato risparmiando tempo e diver- 
tendosi un po' di più. Ciò naturalmente è 
pensabile soltanto nella privacy di casa 
propria; provate a pensare ad un ufficio 
con una decina di dattilografe che scrivo- 
no documenti "parlando" al computer: ol- 
tre aH'immaginabile e fastidioso rumore 
che si creerebbe, ci sarebbero tali e tan- 
te interferenze sonore da rendere del 
tutto impossibile l'uso di questo procedi- 
mento. 

Proprio per questi motivi, la tecnologia 
per gli impieghi produttivi del computer 
si orienta piuttosto su diversi apparati di 
INPUT quali il mouse, la penna ottica, il jo- 
ystick, o tastiere speciali. Il campo di ap- 
plicazione della voce al Personal Com- 
puter è dunque limitato al settore hobbi- 
stico e ad applicazioni particolari, anche 
se - con i passi da gigante cui siamo abi- 
tuati nell’evoluzione tecnologica dell'in- 
formatica - non viene escluso che utiliz- 
zando tecnologie più raffinate si riuscirà 
veramente un giorno ad accendere il 
computer e dirgli: m Hey, per favore, cari- 
camSpeedScript con la lettera che ho 
scritto ierir 
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di R.Winters 

trad. ed adatt. di E.Maninì 


Tutti conosciamo il famoso gioco 
del "Monopoli" che, attraverso 
l'acquisto e la vendita di terreni e 
proprietà immobiliari, crea una 
competizione tra I giocatori per 
raggiungere la supremazia finan- 
ziaria e mandare gli avversari in 
bancarotta. Questo programma 
ne ò un libero adattamento sul 
C64, e vi farà sicuramente passa- 
re delle ore di piacevole diverti- 
mento. E' consigliato l'uso di un 
monitor o televisore a colori. 


Master City è un programma per due gio- 
catori, che segue in tutto e per tutto le re- 
gole del "Monopoli''. Attraverso il lancio 
dei dadi, i due giocatori si muovono in 
senso orario lungo un percorso formato 
da varie proprietà o terreni; ciascun gio- 
catore, dotato inizialmente di una cifra 
standard, può decidere se acquistare o 
meno il terreno su cui si trova. Quando 
un giocatore si trova a cadere su un terre- 
no di proprietà dell'avversario, è tenuto a 
pagare un pedaggio il cui ammontare è 
tanto più alto quanti più terreni dello 
stesso colore sono posseduti dall'awer- 
sario, e quante più case o alberghi sono 
eventualmente costruite su quel ter- 
reno. 

Il computer naturalmente visualizza una 
scheda contenente i dati relativi al terre- 
no, sia nel caso in cui esso sia ancora da 


acquistare, sia nel caso in cui occorra pa- 
gare un pedaggio aH'awersario. 

I terreni sono suddivisi in vari gruppi con- 
traddistinti ciascuno da un diverso colo- 
re, ed è possibile edificare case su un 
terreno soltanto quando si posseggono 
tutti i terreni di un certo colore. Un terre- 
no posseduto può essere in qualsiasi 
momento ceduto airavversario a un prez- 
zo da stabilire, a patto che esso non sia 
edificato. 

In caso di difficoltà finanziarie e deside- 
rando evitare di vendere all'avversario 
preziosi terreni, è possibile ipotecare 
questi ultimi ottenendo in cambio un va- 


lore in contanti stabilito dal computer e vi- 
sualizzato nella scheda relativa al terre- 
no; la tassa richiesta dal computer all’e- 
stinzione dell'ipoteca è del 10% su valo- 
re del terreno. 

Il percorso non contiene soltanto terre- 
ni, ma è dotato anche di prigione (chi ci 
capita rimane fermo un turno), e di appo- 
site caselle denominate 'Imprevisti' e 'Op- 
portunità': capitando su queste caselle, 
il computer vi comunicherà se avete vin- 
to un premio oppure se dovete pagare 
una tassa, oppure ancora altre opportuni- 
tà positive o negative che dipenderanno 
dalla vostra fortuna. 
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ad ogni turno di ciascun giocatore è pos- 
sibile premere il tasto T per tirare i dadi e 
proseguire quindi nel percorso, oppure 
premere il tasto R per compiere operazio- 
ni di compravendita, di costruzione o di 
controllo sulle proprie proprietà. Premen- 
do infatti il tasto R viene visualizzato un 
menu di selezione che consente di ve- 
dere un elenco delle proprie proprietà, 
di ottenere un elenco generale di tutti i 
terreni sul percorso con i rispettivi valori, 
di costruire case e alberghi sul terreno in 
cui ci si trova, di vendere una proprietà al- 
ravversario, di ipotecare un terreno o ri- 


vendere al computer le case eventual- 
mente su di esso edificate, ed infine di 
valutare il proprio stato patrimoniale. 
Naturalmente verrà dichiarato vincitore 
quello dei due giocatori che riuscirà per 
primo a mandare in bancarotta l'avversa- 
rio: una tattica consigliabile è pertanto 
quella di cercare di acquistare tutti i terre- 
ni di uno stesso colore, in modo da po- 
terli edificare e rendere così più pesante 
la tassa che dovrà pagare l'avversario se 
ci dovesse capitare dopo un tiro sfortu- 
nato... 

Buon divertimento! 


Ad ogni attraversamento della casella di 
inizio, cioè ad ogni completamento di un 
giro completo del percorso, viene elargi- 
ta dal computer una cifra costante di 
bonus. 

Dopo avere dato il RUN al programma, 
viene richiesto se si desidera avere l'ob- 
bligo dell'acquisto dei terreni sui quali ci 
si trova (inizialmente è opportuno gioca- 
re senza questo vincolo per familiarizzar- 
si meglio con il gioco e... durare più a lun- 
gol). 

Il giocatore iniziale viene scelto a caso 
dal computer attraverso il lancio dei dadi; 

Master City 

3300 PRINT" { 14 SPAZI }{ 14 SPAZI }{ 1 SH * 

( 1 SH *} [<2>] { 1 SH B}[<5>][<5>] 
[<2>] { 1 SH H } { GRN } { 1 SH *} 

{ 1 SH 1} : rem 56 

3310 PRINT" { 14 SPAZI) { 1 SH -} 

{ 3 SPAZI) [<2>] [<2>] { 1 SH F) 

{ 1 SH F } { GRN } { 3 SPAZI}) 1 SH -} 

: rem 62 

3320 PRINT") 14 SPAZI}) 14 SPAZI}) 1 SH * 
[<5>] [<\>] {GRN} { 5 SH * } [<5>] [<\>] 
{GRN } { 1 SH *}{ 1 SH *} : rem 221 

3330 PRINT") 16 SPAZI } [<5>] [<5>] 

{ 5 SPAZI}) 5 SPAZI} :rem 92 

3340 PRINT : PRINT" { 16 SPAZI } [<1>] PARKING 
{ WHT } " : PRINT : rem 187 

3350 IFPF=OTHENGOSUB1 910: RETURN : rem 241 

3360 PRINT: PRINT") 7 SPAZI} HAI PARCHEGGIO 
LIBERO" : rem 204 

3370 PRINT") 10 SPAZI } PARCHEGGIO $"FP"!": 
M (PT) =M (PT) +FP : FP=0 : PRINT :GOSUB1910: 
RETURN : rem 245 

3380 PRINT" )CLR}";TAB( 15) ; "VAI IN PRIGION 
E" : rem 78 

3390 IFDB=3THENPRINT : PRINT" PER AVER FATT 
O TRE VOLTE DOPPIO !": PRINT : rem 214 
3400 PRINTTAB (16) ;" [<4>] [<4>] [<4>] [<4>] " : 
F0RI=1T05 : PRINTTAB (16) ; " { 8 SH -}":N 
EXT : rem 105 

3410 PRINTTAB (16) ; " { 8 SH -}{ 8 SH -} 

{ 8 SH - } " : PRINT : PL (PT) =41 : JF=1 :DB=0 

: rem 140 

3420 F0RK0=1T03 :FORT=60TO110STEPl .7 :FORI= 
1T06 :POKEG (I) ,T:NEXT:NEXT : rem 26 

3430 FORDL=lTO10 :NEXT : rem 44 

3440 FORT=110TO60STEP-1.7 : F0RI=1T06 : POKEG 
( I ) , T : NEXT : NEXT : NEXT : rem 195 

3450 F0RI=1T06 : POKEG (I) , 0 :NEXT : rem 98 

3460 PRINT" {WHT}"; :GOSUB1910 :RETURN 

:rem 125 

3470 PRINT" )CLR}";TAB( 15) ; "UNA TANTUM" :PR 
INT : PRINTTAB (16) ; "PAGA $75":rem 124 

3480 PRINT: PRINT: PRINT :M(PT)=M(PT) -75:FP= 
FP+75 :GOSUB1910 :RETURN : rem 87 

3490 PRINT" )CLR}";TAB (15) ; "TASSA I.L.O.R. 
": PRINT: PRINTTAB (16) ;"PAGA $200" 


:rem 81 

3500 PRINT : PRINT : PRINT :M (PT) =M (PT) -200 : FP 
=FP+200:GOSUB1 910: RETURN : rem 156 
3510 CC=CC+1 : IFCC>16THENCC=CC-16 : rem 110 
3520 PO=3-PT:CC$=CC$ (CC) : IFCC=1ANDC J ( 1 ) TH 
ENCC=CC+ 1 : CC $ =CC $ ( CC ) : rem 9 7 

3530 PRINT" )CLR} )GIU' ) ) 11 SPAZI } {YELJOPP 
ORTUNITA ' {WHT } { 2 GIU ' } " : FORU=0TO50 
0 :NEXTU:PRINTCC$" { 2 GIU'}" : rem 81 
3540 IFCC=1THÈNCJ(1)=PT : rem 110 

3550 IFCC=2THENG0SUB1 910 : GOTO3380 

: rem 12 


3560 IFCC=3THENPL (PT) =1 :MF=1 :GOSUB1910 :GO 



SUB1880 : RETURN 

: rem 

230 

3570 

IFCC=4THENM (PT) =M (PT) +45 

: rem 

217 

3580 

IFCC=5THENM (PT) =M (PT) +50 :M (PO) =M (PO) 


-50 

: rem 

90 

3590 

IFCC=6THENM (PT) =M(PT) +25 

: rem 

219 

3600 

IFCC=7THENM (PT) =M (PT) -150 : FP=FP+150 



: rem 

105 

3610 

IFCC=8THENM (PT) =M (PT) +20 

: rem 

209 

3620 

IFCC=9THENGOSUB3710 

: rem 

208 

3630 

IFCC=10THENM (PT) =M (PT) +10 

: rem 

251 

3640 

IFCC=11THENM (PT) =M (PT) +100 

: rem 

45 

3650 

IFCC=12THENM (PT) =M (PT) +100 

: rem 

47 

3660 

IFCC=13THENM (PT) =M (PT) -100 

: rem 

51 

3670 

IFCC=14THENM (PT) =M (PT) +200 

: rem 

52 

3680 

IFCC=15THENM (PT) =M (PT) -50 

: rem 

11 

3690 

IFCC=16THENM(PT)=M(PT) +100 

: rem 

55 

3700 

GOSUB1910: RETURN 

: rem 

47 

3710 

YP=0 : FORI=lTO40 

: rem 

192 

3720 

IFPS ( I ) = (PT) ANDH ( I ) <5THENYP 

=YP+ (40*H 


(I) ) 

: rem 

154 


3730 IFPS (I) = (PT) ANDH (I) =5THENYP=YP+115 

: rem 114 

3740 NEXT : PRINT") GIU* ) PAGA) 2 SPAZI }$"YP: 
M (PT) =M (PT) -YP : FP=FP+YP : RETURN 

:rem 113 

3750 CH=CH+1 : IFCH>16THENCH=CH-16 : rem 141 
3760 PO=3-PT :CH$=CH$ (CH) : IFCH=8ANDCJ (2 ) TH 
ENCH=CH+1 :CH$=CH$ (CH) :rem 156 

3770 PRINT" )CLR} )GIU’ } ) 10 SPAZI) [<3>] ? O 
CCASIONI ? {WHT } { 2 GIU ' } " : FORU=0TO50 
0 : NEXTU : PRINTCH$" { 2 GIU'}":rem 222 
3780 IFCH=1THENM (PT) =M (PT) -15 : FP=FP+15 
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: rem 17 

3790 IFCH=2THENGOSUB1910:GOTO3380 

:rem 23 


3800 IFCH=3THENPL (PT) =1 :MF=1 :GOSUB1910 :GO 



SUB1880 : RETURN 

: rem 

232 

3810 

IFCH=4THENM (PT) =M(PT) +150 

: rem 

8 

3820 

IFCH=5THENGOSUB3 950 :MF=1 

: rem 

20 

3830 

IFCH=6THENGOSUB3990 :MF=1 

: rem 

26 

3840 

IFCH=7THENM (PT) =M (PT) +50 

: rem 

221 

3850 

IFCH=8THENCJ (2) =PT 

: rem 

127 

3860 

IFCH=9THENM (PT) =M (PT) -50 :M(PO)=M(PO) 


+50 

: rem 

100 

3870 

IFCH=10THENGOSUB4010 :MF=1 

: rem 

57 

3880 

IFCH=11THENGOSUB4030 :MF=1 

: rem 

61 

3890 

IFCH=12THENPL (PT) =PL (PT) -3 : 

MF-1 




: rem 

183 

3900 

IFCH=13THENGOSUB4050 :MF=1 

: rem 

58 

3910 

IFCH=14THENGOSUB4070 

: rem 

3 

3920 

IFCH=15THENGOSUB3950 :MF=1 

: rem 

70 

3930 

IFCH=16THENGOSUB4110 :MF=1 

: rem 

61 

3940 

GOSUB1 910 : RETURN 

: rem 

53 

3950 

PL (PT) =PL (PT) +1 : IFPL (PT) >40THENGOSUB 


6820:PL(PT)=PL(PT)-40 

: rem 

49 

3960 

IFPT$ (PL (PT) ) ="RR"THEN3980 

: rem 

51 

3970 

GOTO3950 

: rem 

221 

3980 

DV=1 : RETURN 

: rem 

246 

3990 

IFPL (PT) >25THENGOSUB6820 

: rem 

25 

4000 

PL(PT) =25: RETURN 

: rem 

19 

4010 

IFPL (PT) >12THENGOSUB6820 

: rem 

5 

4020 

PL(PT) =12: RETURN 

: rem 

17 

4030 

IFPL (PT) >6THENGOSUB6820 

: rem 

218 

4040 

PL(PT) =6: RETURN 

: rem 

230 

4050 

PL(PT) =40: RETURN 

: rem 

21 

4060 

RETURN 

: rem 

170 

4070 

DF=0 : YP=0 : FORI=lTO40 

: rem 

241 

4080 

IFPS ( I ) = (PT) ANDH ( I ) <5THENYP 

=YP+ (25*H 


(I) ) 

: rem 

157 

4090 

IFPS (I) = (PT) ANDH (I) =5THENYP 

=YP+100 



: rem 

108 

4100 

NEXT : PRINT"PAGA{ 2 SPAZI }$" 

YP :M (PT) = 


M (PT ) -YP : FP=FP=YP : RETURN 

: rem 

105 

4110 

PL (PT) =PL (PT) +1 

: rem 

129 

4120 

IFPL (PT) >40THENGOSUB6820 :PL (PT) = 

: PL (P 


T) -40 

: rem 

50 

4130 

IFPT$ (PL (PT) ) ="U"THEN4150 

: rem 

208 

4140 

GOTO4110 

: rem 

200 

4150 

MF=1: RETURN 

: rem 

229 

4160 

PRINT" (CLR) {GIU' }" 

: rem 

64 

4170 

JT (PT) =JT (PT) +1 

: rem 

139' 

4180 

PRINT "Gl OC ATORE #"PT"E' IN 

PRIGIONE” 



: rem 

166 

4190 

PRINT :PRINT"CI SEI DA{DES } " 

JT (PT) "TU 


RNI" 

: rem 

222 

4200 

PRINT"PUOI : { 5 SPAZI }1.{ 2 

SPAZI) PAG 


ARE $50" 

: rem 

166 


4210 PRINT" { 10 SPAZI } 2. { 2 SPAZI JUSARE ' 
ESCI GRATIS DI { 18 SPAZI JPRIGIONE . " 

:rem 165 

4220 PRINT" { 10 SPAZI}3.{ 2 SPAZI JTENTARE 
DI FARE DOPPIO." : rem 177 


4230 PRINT : INPUT"SCEGLI" ; I : IFI<10RI>3THEN 
4230 ' : rem 113 

4240 IFI=1THENM(PT)=M(PT) -50 : FP=FP+50 : PL ( 
PT) =11 : GOSUB1 910 : JE=1: RETURN 

: rem 5 

4250 IFI=2ANDCJ ( 1 ) =PTTHENCJ ( 1) =0 : PL (PT) =1 
1 :GOSUB1910 : JE=1 :RETURN : rem 192 

42 60 IFI=2ANDCJ (2) =PTTHENCJ (2) =0 : PL (PT) =1 
1 :GOSUB1910 : JE=1 :RETURN :rem 195 

4270 IFI=2THENPRINT"NON HAI LA CARTA" :GOT 
04230 :rem 5 

4280 IFI=3THENGOSUB1780 : IFDBTHEN4340 

: rem 222 

4290 PRINT"NON HAI FATTO DOPPIO." 

:rem 212 

4300 IFJT (PT) >2THENPRINT"DEVI PAGARE I $5 
0" :M (PT) =M (PT)-50:PL(PT)=11 : JB=1 

: rem 4 6 

4310 IFJT (PT) >2THENGOSUB1910 :FP=FP+50 :RET 
URN : rem 33 

4320 GOSUB1910: RETURN : rem 46 

4330 IFPL(PT) =11THENGOSUB1910:JE=1: RETURN 

: rem 8 4 

4340 PRINT"L ' HAI FATTO ! ! ! " : PL (PT) =11 :GOS 
UBI 910 :JB=1:DB=0: RETURN : rem 44 

4350 G0T064 90 :rem 216 

4360 PRINT" (CLR) " : IFPFTHENPRINT"SOLDI IN 
CASSA DEL PARCHEGGIO $";FP :rem 176 
4370 PRINT "GIOCATORE 1 HA $";M(1) :PRINT"G 
IOCATORE 2 HA $";M(2) : rem 182 

4380 PRINT : PRINT"GIOCATORE" ; PT"TIRA" 

:rem 87 

4390 PRINT: PRINT :PRINTTAB( 12) ;"POSSIBILIT 
A'" :rem 95 

4400 PRINT : rem 85 

4410 PRINT" { 3 SPAZI }R=RI VEDERE PROPRIETÀ 
'" : rem 92 

4420 PRINT" { 3 SPAZI } L=LISTA DI TUTTE LE 
PROPRIETÀ'" : rem 50 

4430 PRINT" ( 3 SPAZI } B=COSTRUZ IONE CASE/A 
LBERGHI" : rem 9 

4440 PRINT" { 3 SPAZI } S=VEND ITA PROPRIETÀ' 
AD ALTRO GIOCA- { 6 SPAZI) TORE" 

:rem 230 

4450 PRINT" { 3 SPAZI )M=IPOTECA PROPRIETÀ' 



(VENDITA 

. CASE) " 


: rem 

130 

4460 

PRINT" { 

3 SPAZI )D=VIS IONE 

TITOLI 

AZI 


ONI " 



: rem 

220 

4470 

PRINT" { 

3 SPAZI }Q=RITORNO 

AL GIOCO” 





: rem 

89 

4480 

PRINT" { 

2 SPAZI }XX=F INE 

GIOCO” : PRINT 





: rem 

232 

4490 

INPUT"SCEGLI { 2 SPAZI }{ 

2 

SPAZI} 



{ 3 SIN) 

";C$ 


: rem 

148 

4500 

IFC$=" { 

3 SIN } "THEN4490 


: rem 

255 

4510 

IFC$="R" 

THENGOSUB4600 


: rem 

12 

4520 

IFC$="L" 

THENGOSUB477 0 


: rem 

15 

4530 

IFC$="B" 

THENGOSUB4 92 0 


: rem 

3 

4540 

IFC$="S" 

THENGOSUB5360 


: rem 

20 

4550 

IFC$="M" 

THENGOSUB5720 


: rem 

15 
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4560 

IFC$="D"THENGOSUB67 90 

: rem 

15 


: rem 

147 

4570 

IFC$="Q"THENRETURN 

: rem 

167 

4980 

NEXT 18 : rem 

149 

4580 

IFC$="XX"THEN6570 

: rem 

249 

4990 

PRINT "GRUPPO NON VALIDO" :GOTO4960 

4590 

GOTO4360 

: rem 

216 


: rem 

116 

4600 

INPUT "PER QUALE GIOCATORE 

(1 O 2) 

" ; P 

5000 

P7=PT :rem 

45 


N 

: rem 

118 

5010 

P5=P7 :GOSUB2510 : 1 FMGT H ENO A= 0 


4610 

IFPN<10RPN>2THEN4600 

: rem 

13 


: rem 

26 

4620 

PRINT" (CLR) (GIU' )" 

: rem 

65 

5020 

IFOATHEN5050 : rem 

223 

4630 

PRINTTAB (6) "PROPRIETÀ' GIOCATORE 

" ; P 

5030 

PRINT”MI SPI ACE NON POSSIEDI TUTTE L 


N 

: rem 

79 


E PROPRIE-TA ' DI QUEL GRUPPO 0 UNA” ; 

4640 

PRINT 

: rem 

91 


: rem 

111 

4650 

FORI=lTO40 :PO$="" : IFPS (I) 

=PNTHENPRIN 

5040 

PRINT" E' IPOTECATA. ":G0SUB1 910: 

RETU 


TPN$ (I) ; 

: rem 

38 


RN : rem 

109 

4660 

IFPS ( I) OPNTHEN 4730 

: rem 

177 

5050 

PRINT" { 3 SPAZI }NOME PROPRIETÀ' 


4670 

IFPT$ (I) <>"P"THEN4710 

: rem 

203 


{ 2 SPAZI)# DI CASE (5=ALBERGO) " 


4680 

PRINTSPC (20- (LEN (PN$ (I) ) - 

2) ) ; " { WHT } 


: rem 

50 


: IFH ( I ) <5THENPO$=STR$ (H(I) )+" 

HS" 

5060 

HS=0 :FORI=PLTOPL+4 : IFC$=C$ (I) THENPRI 



: rem 

242 


NTPN$ ( I ) " ( WHT ) " ; T AB (30) ;H(I) :HS= 

: HS+H 


4690 IFH ( I ) =5THENPO$=" { RVS } ALBERGHI { OFF } 



*1 

: rem 

11 

5070 

4700 

PO$=PO$+"/$"+MID$ (STR$ (P (I 

, H (I) +2) ) , 

5080 


2) 

: rem 

235 


4710 

IFMG (I) =1THENP0$="- IPOTECATO" 





: rem 

63 

5090 

4720 

PRINTPO$ 

: rem 

29 


4730 

NEXT 

: rem 

13 

5100 

4740 

PRINT : IFCJ ( 1 ) =PNORC J ( 2 ) =PNTHENPRINT" 

5110 


(WHT) CARTA PER USCIRE GRATIS DI 

PRIG 

5120 


IONE" 

: rem 

113 


4750 

PRINT " { WHT } GIOCATORE " PN"HA 

$" ;M (PN) 




: rem 

73 

5130 

4760 

PRINT : GOSUB1910 : RETURN 

: rem 

253 


4770 

PRINT" (CLR)" 

: rem 

54 


4780 

TT$="NOME{ 28 SPAZI ) PROPR/ (GIU ' ) 


5140 


{ 6 SIN}# CASE" :PRINTTT$ 

: rem 

162 

5150 

4790 

FORK=lTO40 : IFPT$ (K) <>"P"ANDPT$ (K) <>" 

5160 


RR"ANDPT$ (K) <>"U"THEN4880 

:rem 

156 


4800 

PRINTPNS (K) " ( WHT } " ; TAB (21) 

; : rem 

1 


4810 

PRINTTAB (33) 

: rem 

232 

5170 

4820 

P$=STR$ (PS (K) ) : PP$=MID$ (STR$ (H (K) ) , 2 



) : IFH (K) >4THENPP$="H" 

: rem 

65 

5180 

4830 

IFPT$ (K) <>"P"THENPP$="X" 

: rem 

156 


4840 

IFMG (K) THENPP$=" (RVS }MG(OFF) " 





: rem 

59 

5190 

4850 

P$=P$+" -"+PP$ 

: rem 

129 

5200 

4860 

IFPS (K) =0THENP$=" NESS." 

: rem 

152 

5210 

4870 

PRINTPS 

: rem 

212 

5220 

4880 

IFK=2 0THENPRINT : GOSUB1 9 1 0 : 

PRINT” 


5230 


(CLR)" :PRINTTT$ 

: rem 

191 


4890 

NEXTK 

: r em 

95 


4900 

PRINT :GOSUB1910 

: rem 

223 

5240 

4910 

RETURN 

: rem 

. 174 

5250 

4920 

PRINT" (CLR) ( 2 GIU')" 

: rem 

85 


4930 

HO=0 

: rem 

212 


4940 

PRINT" SU CHE GRUPPO" :PRINTPG$ 


5260 



: rem 

121 

5270 

4950 

PRINT 

: rem 

95 


4960 

INPUT "QUALE COLORE" ;C$ 

: rem 

133 

5280 

4970 

F0RI8=1T041 : IFC$=LEFT$ (C$ (18) , LEN (C$ 

5290 


) ) THENPL=I8 :C$=C$ (18) :GOTO5000 


2 

? ( 

157 

99 

98 


(I) :rem 32 

NEXT : rem 11 

PRINT : PRINT"LE CASE DI QUESTO GRUPPO 
(SPAZI) COSTANO $"P (PL, 9) "CAD . " 

:rem 20 

PRINT"GLI ALBERGHI COSTANO $"P(PL,9) 
"+ 4 CASE 0 $"; (P (PL, 9) *5) : rem 85 

PRINT : rem 83 

PRINT"TU HAI $"M (PT) : rem 121 

PRINT"GLI ALBERGHI VENGONO AUTOMATIC 
AMENTE { 4 SPAZI } AGGIUNTI DOPO LA 4. A 
CASA" : rem 

PRINT "QUANTE CASE VUOI COSTRUIRE 
MAX=" ; :MX=( (5*PC) -HS) :PRINTMX") " 

: rem 

INPUTHN : IFHN>MXTHEN(ÌOTO5130 : rem 
H7=INT (HN/PC) :H8=HN-(H7*PC) :rem 
IFM (P7) < (HN*P (PL, 9) ) THENPRINT"NON HA 
I ABBASTANZA SOLDI !!!!" :GOTO5130 

: rem 62 

IFHN=OTHENPRINT "OK" : GOSUB1 9 1 0 : RETURN 

:rem 152 

M(P7)=M(P7)-(HN*P(PL, 9) ) :FORE=PLTOPL 
+4 : IFC$=C$ (E) THENH (E) =H (E) +H7 

: rem 7 8 

NEXT : rem 14 

IFH8THEN5220 : rem 206 

GOTO5350 : rem 206 

PRINT"TI RIMANGONO"H8"CASE" : rem 193 

PRINT :F1=0 : FORF=PLTOPL+4 : IFC$=C$ (F) T 
HENF1=F1+1 : PRINTF1, PN$ (F) ; " 

{ 2 SPAZI )"H(F) : rem 149 

NEXT: PRINT :FORG=lTOH8 : rem 202 

PRINT"DOVE VUOI LA CASA #"G;:INPUTHL 
: IFHL=HOTHENPRINT"NON PUOI" :GOTO5250 

: rem 7 8 

F2=0 :F1=0 :F9=0 : rem 246 

FORF=PLTOPL+3 : IFC$=C$ (F) THENF1=F1+1 : 
IFF1=HLTHENF9=F :rem 212 

NEXTF : rem 84 

IFF9=OTHENPRINT"NON QUEL NUMERO" :GOT 
05250 :rem 130 


10/87 SUPERCOMMODORE C64&128 17 


5300 H2=0 :FORF=PLTOPL+3 : IFC$=C$ (F) THENIFH 
(F9) >H (F) THENH2=H2+1 : rem 166 

5310 NEXT : rem 8 

5320 IFH2THENPRINT "DISTRIBUZIONE INVALIDA 
DELLE CASE! " :GOTO5250 : rem 232 

5330 HO=HL:H (F9) =H (F9) +1 : rem 54 

5340 NEXTG : rem 82 

5350 PRINT"FATTO" :G0SUB1 910 : RETURN 

:rem 187 

5360 INPUT"CHE GIOCATORE HA PROPRIETÀ' DA 
VENDERE"; PI : rem 191 

5370 IFP1=OTHENGOSUB1910 : RETURN : rem 224 
5380 P2=Pl + l:IFP2>2THENP2=P2-2 : rem 246 
5390 PRINT"E ' UNA PROPRIETÀ' INPUTQS : I 
FLEFT$ (Q$, 1) ="N"THEN5600 : rem 140 

5400 PRINT"IN CHE GRUPPO DI COLORE" : PRINT 
PG$ : rem 177 

5410 PRINT : INPUT"QUALE";C$ : rem 127 

5420 F0RI6=1T041 : IFC$=LEFT$ (C$ (16) , LEN(C$ 
) )THENPL=I6:C$=C$(I6) :GOTO5450 

:rem 139 

5430 NEXT 16 : rem 138 

5440 PRINT "GRUPPO ERRATO { 2 SPAZI }" :GOT05 
410 :rem 133 

5450 PRINT"# { 2 SPAZI {PROPRIETÀ' ;TAB (30) ; 

"PROPR" : rem 85 

5460 HO=0 : CT=0 : FORI=PLTOPL+4 : IFC$=C$ ( I) TH 
ENCT=CT+1 : PRINTCT" { 3 SPAZI } "PN$ ( I) " 
{ WHT } " ; T AB (35) ; P S ( I ) : rem 224 

5470 IFH ( I ) THENHO=l : rem 117 

5480 NEXT : rem 16 

5490 PRINT :PRINT"QUALE VENDE IL GIOCATORE 
"PI : rem 7 

5500 INPUTTP : rem 254 

5510 CT=0 : FORI=PLTOPL+4 : IFC$=C$ (I) THENCT= 
CT+1 : IFCT=TPTHENT4=I : FF=1 : rem 198 

5520 NEXT : rem 11 

5530 IFFF=0THENPRINT "NUMERO ERRATO 

{ 2 SPAZI }":GOTO5490 : rem 61 

5540 IFPS (T4) <>P1THENPRINT"GI0CAT #"P1"N0 
N LO POSSIEDE. ":GOTO5360 : rem 196 

5550 IFHOTHENPRINT " HAI CASE SU QUEL GRUPP 
O NON PUOI VENDERE. ":G0T055 90 

:rem 68 

5560 INPUT "A QUANTO VUOI VENDERE" ; SP 

:rem 231 

5570 M(P1) =M(P1) +SP :M(P2) =M(P2) -SP :PS (T4) 
=P2 :rem 22 

5580 PRINT "GIOCATORE #"P2"COMPRA "PN$ (T4) 
" {WHT } " : PRINT "PER $"SP : rem 136 

5590 PRINT :GOSUB1910 : RETURN : rem 255 

5600 PRINT"PROPRIETA'";TAB(30) ;"PROPR" 

:rem 81 

5610 FORI=6TO36STEP10 : N=N+1 : PRINTN" 

{ 2 SPAZI } "PN$ ( I) " {WHT } " ; TAB (35) ; PS ( 
I) :NEXT :N=0 : rem 54 

5620 PRINT" 5 { 3 SPAZI } "PN$ (13) " {WHT }"; TA 
B (35) ; PS ( 13) : PRINT" 6{ 3 SPAZI)"PN$( 
29) "{WHT)";TAB(35) ;PS (29) : rem 94 

5630 INPUT "QUALE #";NM: IFNM=0THENRETURN 


: rem 243 

5640 IFNM<lORNM>6THEN5630 :rem 19 

5650 IFNM=5ANDPS (13) =P1THENSN=13 :GOTO5690 

:rem 13 


5660 IFNM=6ANDPS (29) =P1THENSN=29 :GOTO5690 




: rem 

29 

5670 

IFNM>0ANDNM<5THENSN=6+ ( (NM- 

1) *10) 

: IF 


PS (SN) =PlTHENGOTO5690 

:rem 

53 

5680 

PRINT "NON E' TUO" :GOTO5600 

: rem 

49 

5690 

INPUT"PREZZO RICHIESTO" ;SP 

: rem 

26 

5700 

M (PI ) =M (PI) +SP :M (P2 ) =M (P2 ) - 

SP : PS (SN) 


=P2 

: rem 

42 

5710 

GOSUB1910: RETURN 

: rem 

50 


5720 PRINT" {CLR} {GIU' )":PRINT"{ 2 SPAZI) 
POSSIBILITÀ' {GIU' )" :PRINT"0 
{ 2 SPAZI) RITORNO { 12 SPAZI)" 

: rem 4 9 

5730 PRINT" 1 { 2 SPAZI ) IPOTECA PROPRIETÀ'" 

:rem 179 

5740 PRINT"2 { 2 SPAZI ) IPOTECA STAZIONI" :P 
RINT"3 { 2 SPAZI) IPOTECA SOCIETÀ'" 

:rem 187 

5750 PRINT" 4 { 2 SPAZI }CANC . IPOTECA (AL 10% 
INTERESSE) ":PRINT"5{ 2 SPAZI }VENDIT 
A CASE": PRINT : rem 98 

5760 INPUT"SCEGLI" ;GG : IFGG<OORGG>5THEN57 6 
0 :rem 140 

5770 IFGG=OTHENGOSUB1 910: RETURN : rem 241 

5780 ONGGGOSUB5 800, 6030, 6120,6200, 6830 

:rem 39 

5790 GOTO5720 :rem 220 

5800 PRINT: PRINT" IN CHE GRUPPO E' LA PROP 

RIETA' " : PRINTPG$ : rem 1 

5810 PRINT :INPUT"COLORE ";C$ : rem 207 

5820 F0RI6=1T041 : IFC$=LEFT$ (C$ (16) , LEN (C$ 
) ) THENPL=I6 :C$=C$ (16) :GOTO5850 

:rem 147 

5830 NEXT 16 :rem 142 

5840 PRINT "GRUPPO ERRATO { 2 SPAZI )" :GOT05 
810 :rem 141 

5850 CM=0 : FORI=PLTOPL+3 : IFC$=C$ (I) THENCM= 
CM+H ( I ) : rem 182 

5860 NEXT :rem 18 

5870 IFCMTHENPRINT"NON PUOI IPOTECARE PRO 
PRIETA' CON CASE" :GOTO6020 : rem 203 
5880 PRINT"# PROPRIETÀ TAB (25 ); "PROPR" 

:rem 130 

5890 CT=0 :FORI=PLTOPL+4 : IFC$OC$ (I) THEN59 

2 0 : rem 101 

5900 CT=CT+1: PRINTCT" { 3 SPAZI ) "PN$ ( I) " 

{WHT ) " ; TAB (27 ) PS (I) ; :PP$=" " : IFMG (I) T 
HENPP$=" IPOTECATO" : rem 178 

5910 PRINTPPS : rem 32 

5920 NEXT :rem 15 

5930 PRINT: PRINT "CHE NUMERO VUOI IPOTECAR 
E. INPUTTP : rem 197 

5940 IFTP=0THENGOSUB1910 :RETURN irem 6 
5950 CT=0 : FORI=PLTOPL+4 : IFC$=C$ ( I ) THENCT= 
CT+1 : IFCT=TPTHENT4=I :FF=1 : rem 206 

5960 NEXT : rem 19 
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5970 

IFFF=0THENPRINT "NUMERO SBAGLIATO 

” :GO 

6320 

GOSUB1 910: RETURN 

: rem 

48 


TO5930 

: rem 

13 

6330 

IFAFTHEN6350 

: rem 

223 

5980 

IFPS (T4 ) <>PTTHENPRINT"NON 

TI APPARTI 

6340 

RETURN 

: rem 

173 


ENE . " :GOSUB1910 :GOTO5720 

: rem 

100 

6350 

PL=PL(PT) :PRINTPN$ (PL) ” {WHT} VIENE M 

5990 

IFMG (T4) =1THENPRINT"GIA' 

IPOTECATO” : 


ESSA ALL* ASTA ” 

: rem 

16 


GOTO5930 

: rem 

37 

6360 

PRINT"AL MIGLIOR OFFERENTE 

ti 


6000 

PRINT :PRINT"OK" :MG(T4)=1 

: rem 

13 



: rem 

222 

6010 

PRINT" INCASSI $"P (T4, 8) "PER LA TUA I 

6370 

PO=3-PT : PRINT : HB=0 : PA=PT : AC=0 : PRINT : 


POTECA. " :M (PT) =M (PT) +P (T4 

,8) 



HB=0 : PA=PT : AC=0 

: rem 

78 



: rem 

219 

6380 

PA=3-PA 

: rem 

144 

6020 

GOSUB 1 910: RETURN 

: rem 

45 

6390 

PRINT "GIOCATORE"? A" QUAL ' E ' 

LA TUA OF 

6030 

RC=0 :FORI=6TO36STEP10 : IFPT$ (I) =" 

RR”T 


FERTA : INPUTBD : BD=INT (BD) :AC=AC+1 


HENRC=RC+1:PRINTRC"{ 2 SPAZI ) "PN$ (I) 



: rem 

126 


" { WHT } { 5 SPAZI }PLR. #"PS (I) : rem 

84 

6400 

IFBD=0THENON (AC>1) +2GOTO6430, 6380 

6040 

NEXT 

: rem 

9 



: rem 

188 

6050 

INPUT "QUALE #";RG 

: rem 

14 

6410 

IFBD<=HBTHENPRINT"DEVI OFFRIRE PIU 1 

6060 

IFRG<10RRG>4THEN6050 

: rem 

7 


DI"HB" OPPURE ' 0'" :GOTO6390 

: rem 

38 

6070 

RG=6+( (RG-1) *10) 

: rem 

40 

6420 

HB=BD : HR=P A : GOTO 6380 

: rem 

255 

6080 

IFPS (RG) <>PTTHENPRINT"NON 

TI APPARTI 

6430 

IFHB=0THEN6480 

: rem 

84 


ENE ." : GOSUB 1 9 1 0 : GOTO 5720 

: rem 

109 

6440 

PRINTPN$ (PL) " (WHT) VA A " 

: rem 

43 

6090 

IFMG (RG) =1THENPRINT"GIA ' 

IPOTECATO . " 

6450 

PRINT "GIOCATORE" HR" PER $" 

HB 



:GOSUB1910 :GOTO5720 

: rem 

222 



: rem 

176 

6100 

MG (RG)=1: PRINT" INCASSI $100 PER 

L 1 IP 

6460 

M (HR) =M (HR) -HB : PS (PL) =HR 

: rem 

213 


OTECA. " :M (PT) =M (PT) +100 

: rem 

193 

6470 

RETURN 

: rem 

177 

6110 

GOSUB1 910 : RETURN 

: rem 

45 

6480 

PRINT : PRINTPN$ (PL) " (WHT) NON ANCORA 

6120 

U (1) =13 :U(2) =29 

: rem 

251 


ACQISTATO . " : RETURN 

: rem 

174 

6130 

F0RI=1T02 :PRINTI" { 2 SPAZI } "PN$ (U ( I ) 

6490 

PRINT" { CLR } " : PRINT " IL { DES } GIOCATORE 


) " (WHT)" :NEXT 

: rem 

85 


#"PT"E ' FALLITO!!" 

: rem 

85 

6140 

INPUT" QUALE ? " ; UM 

: rem 

51 

6500 

PRINT" (GIU' } SE NON PUOI PROCURARTI $ 

6150 

IFUM< 10RUM>2THEN 6140 

: rem 

23 


"ABS (M(PT) ) "SEI ELIMINATO. 

” : rem 

250 

6160 

IFPS (U (UM) ) OPTTHENPRINT" 

NON TI 

APPA 

6510 

PRINT"NON PREMERE (DES } 'Q' 

(RITORNO A 


RT IENE . " : GOSUB 1 9 1 0 : GOT05 7 2 0 : rem 

27 


L GIOCO) PRIMA DI AVER FINITO DI 

PRO 

6170 

IFMG (U (UM) ) =1THENPRINT"GIA ' IPOTECAT 


C"; 

: rem 

201 


O. " :GOSUB1910 :GOTO5720 

: rem 

140 

6520 

PRINT "URARTI I SOLDI" 

: rem 

57 

6180 

MG (U (UM) )=1: PRINT" INCASSI 

$75 PER L' 

6530 

GOSUB1 910 :GOSUB4360 

: rem 

160 


IPOTECA. *':M(PT)=M(PT) +75 

: rem 

46 

6540 

IFM (PT) >=0THENRETURN 

: rem 

90 


6200 PRINT : PRINT"QUESTE SONO LE PROPRIETÀ 
' IPOTECATE." : rem 176 

6210 ML=0 : F0RI=1T041 : IFPS (I) = (PT) ANDMG (I) 
=1THENML=ML+1 : PRINTML" { 2 SPAZI }"PN$ 
( I ) " { WHT } " : rem 153 

6220 NEXT : rem 9 

6230 IFML=OTHENPRINT"NON HAI PROPRIETÀ' I 
POTECATE . " : GOSUB 1 9 1 0 : RETURN : rem 101 
6240 PRINT :INPUT"CHE IPOTECA VUOI CANCELL 
ARE . " ; LF : rem 68 

6250 I F LF < 1 ORLF >MLT HENPRINT "NON VALIDO" :G 
OTO6240 : rem 78 

6260 ML=0 :F0RI=1T041 : IFPS (I) = (PT) ANDMG (I) 
= 1 THENML=ML+ 1 : IFML=LFTHENFT=I 

:rem 213 

6270 NEXT :rem 14 

6280 PRINT" IPOTECATO PER $"P(FT,8) 

: rem 243 

6290 PRINT "DEVI PAGARE $" ; : PY=P (FT, 8 ) *1 . 1 
0 : PRINTPY : rem 242 

6300 IFPY>M(PT)THENPRINT"NON HAI I SOLDI. 

" :GOSUB1910 :RETURN : rem 207 

6310 M (PT) =M (PT) -PY:MG (FT) =0 : rem 135 


!!!*’: PT=3-PT : rem 230 

6560 PRINT" --GIOCATORE #"PT"HAI VINTO!— 
” : END : rem 14 6 

6570 PRINT"GAME OVER" : rem 24 9 

6580 PRINT" IL VINCITORE E'"; : rem 147 

6590 IFM (1) >M (2 ) THENPRINT"IL GIOCATORE #1 
CON $"M ( 1 ) : rem 153 

6600 IFM (2) >M ( 1 ) THENPRINT" IL GIOCATORE #2 
CON $"M (2 ) : rem 147 

6610 IF M (2 ) =M ( 1 ) THENPRINT"NESSUNO, 

{ 2 SPAZI) SIETE PARI!" : rem 86 

6620 PRINT "GIOCATORE 1 ={ 2 SPAZI }$" ;M (1 ) 

:rem 216 

6630 PRINT "GIOCATORE 2 ={ 2 SPAZI ) $" ;M (2) 

:rem 219 

PRINT : rem 93 


6640 

6650 


POKE5 42 9 6, 0: F0RI=1T06 : POKEG ( I ) , 0 : END 


6660 F0RJ=832T0939 
6670 READI :POKEJ, I :NEXTJ 
6680 DATA 160,0,185,0,4,153,0,192,185,0,5 
,153,0,193,185,0,6,153,0 
6690 DATA 194,185,0,7,153,0,195,185,0,216 


: rem 

206 

: rem 

37 

: rem 

35 

2, 185, 

0,5 

: rem 

106 


10/87 SUPERCOMMODORE C64 4128 1 9 


,153,0,196,185,0,217,153,0 :rem 231 
6700 DATA 197,185,0,218,153,0,198,185 

: rem 4 6 

6710 DATA 0,219,153,0,199,200,208,205,96, 

160.0. 185.0.192.153.0.4.185.0.193.15 

3 : rem 244 

6720 DATA 0,5,185,0,194,153,0,6,185,0,195 
,153,0,7,185,0,196,153,0,216,185,0,1 
97 : rem 45 

6730 DATA 153,0,217,185,0,198,153,0,218,1 

85.0. 199. 153. 0.219.200.208.205. 96 

:rem 65 

6740 RETURN : rem 177 

6750 F0RP4=1T02 : rem 128 

6760 Y$=" {RVS } "+PN$ (PL (P4) ) +LEFT$ (" {SIN) 
{DES } { 15 SPAZI}", 18-(LEN(PN$(PL(P4) 

) )-2) )+" {OFF}" : rem 130 

6770 MN$=" {RVS } $"+MID$ (STR$ (M(P4) ) ,2)+" 

{ 4 SPAZI } {OFF } " : X=13 : Y=2*P4+3 : Z$=Y$ 
:GOSUB1730 : rem 235 

6780 Y=Y+1 : Z$=MN$ :GOSUB1730 : NEXT : RETURN 

:rem 236 

6790 PRINT" {GIU' }PER CHE GRUPPO DI COLORE 
VUOI VEDERE { 4 SPAZI} LA SITUAZIONE 
?: {GIU' } " : PRINTPG$ : INPUTC$ : PRINT 

: rem 55 

6800 P3=PL:F0RI=1T041 : IFC$=LEFT$ (C$ (I) , LE 
N (C$) ) THENGF=1 : PL=I : GOSUB2 0 8 0 : GF=0 

:rem 25 

6810 NEXT :PL=P3: RETURN : rem 190 

6820 M (PT) =M (PT) +200 : PRINT" {GIU ' JINCASSAT 
I $200 {GIU' } " : RETURN -.rem 234 

6830 PRINT"SU CHE GRUPPO DI COLORE ?:":PR 
INTPG$ : INPUTC$ :rem 116 

6840 PL=0 : F0RI=41T01STEP-1 : IFC$=LEFT$ (C$ ( 
I) , LEN (C$) ) THENPL=I :C$=C$ (I) 

: rem 8 6 

6850 NEXTI : IFPLTHEN6870 : rem 196 

6860 PRINT "GRUPPO ERRATO" :G0T068 30 

:rem 147 

6870 DO=0 : HN=0 : FORI=PLTOPL+3 : IFPS (I) <> (PT 
) ANDC$=C$ (I) THENDO=l : rem 15 

6880 IFC$=C$ ( I ) THENHN=HN+H ( I ) : rem 175 

68 90 NEXT : rem 22 

6900 IFDO=lORHN=0THENPRINT"NON POSSIEDI C 
ASE SU QUESTE PROPRIETÀ' " :GOSUBl 910 : 
RETURN : rem 101 

6910 PRINT"# { 2 SPAZI } PROPRIETÀ ' " ; TAB (25) 

; "CASE (5=HOTEL) " :rem 69 

6920 CT=0 : FORI=PLTOPL+3 : IFC$=C$ (I) THENCT= 
CT+1 : PRINTCT" { 3 SPAZI } "PN$ ( I) " (WHT } 
" ; TAB ( 2 7 ) H ( I ) : rem 14 

6930 NEXT :rem 17 

6940 INPUT "PUOI TOGLIERE TUTTE QUESTE CAS 
E" ; A$ : IFLEFT$ (A$, 1) ="S"THEN7080 

:rem 101 

6950 PRINT :INPUT"DA CHE # VUOI TOGLIERE L 
A CASA ?";TP : rem 72 

6960 IFTP=0THEN RETURN : rem 132 

6970 CT=0 : FORI=PFTOPL+3 : IFC$=C$ (I) THENCT= 


CT+1 : IFCT=TPTHENT4=I : FF=1 : rem 202 
6980 NEXT : rem 22 

6990 IFFF=0THENPRINT "NUMERO ERRATO" :GOT06 
950 :rem 74 

7000 IFH (T4) =0THENPRINT"NON CI SONO CASE" 
:GOTO6950 : rem 253 

7010 NN=0:NH=H(T4) : FORI=PLTOPL+3 : IFH ( I ) >N 
HTHENNN=1 :rem 151 

7020 NEXT : rem • 8 

7030 IFNNTHENPRINT"NON PUOI TOGLIERE QUEL 

LA CASA . " : GOTO 6950 : rem 201 

7040 PRINT : PRINT"OK . " :H (T4) =H (T4) -1 

: rem 6 6 

7050 HM=P(PL,9)/2 : rem 161 

7060 PRINT"HAI INCASSATO $"HM"PER LA TUA 
CASA" :M (PT) =M (PT) +HM : rem 67 

7070 GOSUB1 910 : GOTO5720 :rem 90 

7080 HM=0 : FORI=PLTOPL+3 : IFC$=C$ ( I ) THENHM= 
HM+ (P (PL, 9) /2) *H (I) :H(I)=0 : rem 201 
7090 NEXT : PRINT"HAI INCASSATO $"HM"PER LA 
TUA CASA" : M ( P T ) =M ( PT ) +HM : GOT07 070 

: rem 0 

3300 PRINT" { 14 SPAZI }{ 14 SPAZI} { 1 SH * 

{ 1 SH *} [<2>] { 1 SH B}[<5>][<5>] 
[<2>] { 1 SH H } { GRN } { 1 SH *} 

{ 1 SH 1} : rem 56 

3310 PRINT" { 14 SPAZI }{ 1 SH -} 

{ 3 SPAZI} [<2>] [<2>] { 1 SH F} 

{ 1 SH F } { GRN } { 3 SPAZI} { 1 SH -} 

: rem 62 

3320 PRINT" { 14 SPAZI} { 14 SPAZI }{ 1 SH * 
[<5>] [<\>] {GRN} { 5 SH * } [<5>] [<\>] 
(GRN} { 1 SH *)( 1 SH *} : rem 221 

3330 PRINT" { 16 SPAZI } [<5>] [<5>] 

( 5 SPAZI} { 5 SPAZI} : rem 92 

3340 PRINT : PRINT" { 16 SPAZI } [<1>] PARKING 
(WHT} " : PRINT : rem 187 

3350 IFPF=0THENGOSUB1910 :RETURN : rem 241 
3360 PRINT : PRINT" ( 7 SPAZI} HAI PARCHEGGIO 
LIBERO" : rem 204 

3370 PRINT" ( 10 SPAZI } PARCHEGGIO $"FP"!": 
M (PT) =M (PT) +FP : FP=0 :PRINT :GOSUB1910 : 
RETURN : rem 245 

3380 PRINT" {CLR} " ; TAB (15) ; "VAI IN PRIGION 
E" : rem 78 

3390 IFDB=3THENPRINT: PRINT" PER AVER FATT 
O TRE VOLTE DOPPIO !": PRINT :rem 214 
3400 PRINTTAB (16) ;"[<4>] [<4>] [<4>] [<4>]": 
F0RI=1T05 :PRINTTAB (16) ; " { 8 SH -}":N 
EXT : rem 105 

3410 PRINTTAB (16) ; " ( 8 SH -}( 8 SH -} 

( 8 SH - } " : PRINT : PL (PT) =41 : JF=1 :DB=0 

:rem 140 

3420 F0RK0=1T03 :FORT=60TO110STEPl . 7 :FORI= 
ITO 6 : POKEG (I) , T :NEXT :NEXT : rem 26 
3430 FORDL=lTO10 :NEXT :rem 44 

3440 FORT= 1 1 0 TO 6 0 S TEP- 1 . 7 : FORI = 1 TO 6 : POKEG 
( I ) , T : NEXT : NEXT : NEXT :rem 195 

3450 F0RI=1T06 : POKEG ( I) ,0:NEXT : rem 98 
3460 PRINT" (WHT}"; :GOSUB1910 : RETURN 
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: rem 125 

3470 PRINT" {CLR} " ; TAB (15) ; "UNA TANTUM" :PR 
INT : PRINTTAB (16) ; "PAGA $75":rem 124 

3480 PRINT : PRINT : PRINT :M (PT) =M (PT) -75 : FP= 
FP+75:GOSUB1910: RETURN : rem 87 

3490 PRINT" {CLR}"; TAB (15) /"TASSA I.L.O.R. 
" :PRINT: PRINTTAB (16) ;"PAGA $200" 

: rem 8 1 

3500 PRINT: PRINT: PRINT :M(PT) =M (PT) -200 : FP 
=FP+200:GOSUB1910:RETURN :rem 156 

3510 CC=CC+1 : IFCC>16THENCC=CC-16 : rem 110 
3520 PO=3-PT :CC$=CC$ (CC) : IFCC=1 ANDC J ( 1 ) TH 
ENCC=CC+1:CC$=CC$ (CC) : rem 97 

3530 PRINT" { CLR }( GIU' ) { 11 SPAZI HYELJOPP 
ORTUNITA' { WHT } { 2 GIU ' } " : FORU=0TO50 



0 :NEXTU : PRINTCC$" { 2 GIU'}" 

: rem 

81 

3540 

IFCC=1THENCJ ( 1 ) =PT 

: rem 

110 

3550 

IFCC=2THENGOSUB1910 :GOTO3380 




: rem 

12 

3560 

IFCC=3THENPL (PT) =1 :MF=1 :GOSUB1910 

: GO 


SUB1880: RETURN 

: rem 

230 

3570 

IFCC=4THENM (PT) =M (PT) +45 

: rem 

217 

3580 

IFCC=5THENM (PT) =M (PT) +50 :M (PO) =M (PO) 


-50 

: rem 

90 

3590 

IFCC=6THENM (PT) =M (PT) +25 

: rem 

219 

3600 

IFCC=7THENM (PT) =M(PT) -150 : FP=FP+150 



: rem 

105 

3610 

IFCC=8THENM (PT) =M (PT) +20 

: rem 

209 

3620 

IFCC=9THENGOSUB3710 

: rem 

208 

3630 

IFCC=10THENM (PT) =M (PT) +10 

: rem 

251 

3640 

IFCC=11THENM (PT) =M(PT) +100 

: rem 

45 

3650 

IFCC=12THENM (PT) =M (PT) +100 

: rem 

47 

3660 

IFCC=13THENM (PT) =M (PT) -100 

: rem 

51 

3670 

IFCC=14THENM (PT) =M (PT) +200 

: rem 

52 

3680 

IFCC=15THENM (PT) =M (PT) -50 

: rem 

11 

3690 

IFCC=16THENM (PT) =M (PT) +100 

: rem 

55 

3700 

GOSUB1 910: RETURN 

: rem 

47 

3710 

YP=0 :FORI=lTO40 

: rem 

192 

3720 

IFPS (I) = (PT) ANDH (I) <5THENYP 

=YP+ (40*H 


(I) ) 

: rem 

154 

3730 

IFPS ( I ) = ( PT ) ANDH ( I ) =5THENYP 

=YP+115 



: rem 

114 

3740 

NEXT : PRINT" (GIU' } PAGAI 2 SPAZI)$" 
M (PT ) =M (PT ) -YP : FP=FP+YP : RETURN 

YP: 



: rem 

113 

3750 

CH=CH+1 : IFCH>1 6THENCH=CH- 1 6 

: rem 

141 

3760 

PO=3-PT : CH$=CH$ (CH) : IFCH=8ANDCJ (2) TH 


ENCH=CH+1 :CH$=CH$ (CH) 

: rem 

156 

3770 

PRINT" (CLR) {GIU' ){ 10 SPAZI) [<3>] 

? O 


CCASIONI ? (WHT } { 2 GIU ' } " : FORU=0TO50 


0 :NEXTU :PRINTCH$" { 2 GIU')" 

: rem 

222 

3780 

IFCH=1THENM (PT) =M (PT) -15 :FP 

=FP+15 



: rem 

17 

3790 

IFCH=2THENGOSUB1910 :GOTO3380 




: rem 

23 

3800 

IFCH=3THENPL (PT) =1 :MF=1 :GOSUB1910 

UGO 


SUB1880: RETURN 

: rem 

232 

3810 

IFCH=4THENM (PT) =M (PT) +150 

: rem 

8 

3820 

IFCH=5THENGOSUB3950 :MF=1 

: rem 

20 

3830 

IFCH=6THENGOSUB3 990 :MF=1 

:rem 

26 


3840 IFCH=7THENM (PT) =M (PT) +50 : rem 221 

3850 IFCH=8THENCJ (2) =PT : rem 127 

3860 IFCH=9THENM (PT) =M (PT) -50 :M (PO) =M (PO) 
+50 :rem 100 

3870 IFCH=10THENGOSUB4010 :MF=1 
3880 
3890 


IFCH=1 1THENGOSUB4 0 30 :MF=1 
IFCH=12THENPL (PT) =PL (PT) -; 


3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 


IFCH=13THENGOSUB4050 ;MF=1 
IFCH=1 4THENGOSUB4 07 0 
IFCH=15THENGOSUB3950 :MF=1 
IFCH=16THENGOSUB4110 :MF=1 
GOSUB1 910: RETURN 
PL (PT) =PL (PT) +1 :IFPL(PT) >4l 
6820:PL(PT)=PL (PT) -40 
IFPT$ (PL (PT) ) ="RR"THEN3980 
GOTO3950 
DV=1: RETURN 

IFPL (PT) >2 5THENGOSUB6 8 2 0 

PL(PT) =25: RETURN 

IFPL (PT) >12THENGOSUB6820 

PL(PT) =12 .-RETURN 

IFPL (PT) >6THENGOSUB6820 

PL(PT) =6: RETURN 

PL(PT) =40: RETURN 

RETURN 

DF=0 :YP=0 :FORI=lTO40 
IFPS (I) = (PT) ANDH (I) <5THENYI 
(I) ) 


NEXT: PRINT "PAGAI 2 SPAZI }( 
M (PT ) -YP : FP=FP=YP : RETURN 
4110 PL (PT) =PL (PT) +1 
4120 IFPL (PT) >40THENGOSUB6820 :I 
T) -40 

4130 IFPT$ (PL (PT) ) ="U"THEN4150 
4140 GOTO4110 
4150 MF=1: RETURN 
4160 
4170 
4180 


PRINT" (CLR) (GIU' ) " 

JT (PT) =JT (PT) +1 
PRINT "GIOCATORE #"PT"E' 


: rem 

57 

: rem 

61 

MF=1 


: rem 

183 

: rem 

58 

: rem 

3 

: rem 

70 

: rem 

61 

: rem 

53 

)THENGOSUB 

: rem 

49 

: rem 

51 

: rem 

221 

:rem 

246 

: rem 

25 

: rem 

19 

: rem 

5 

: rem 

17 

: rem 

218 

: rem 

230 

: rem 

21 

: rem 

170 

: rem 

241 

’=YP+ (25*H 

: rem 

157 

>=YP+100 

: rem 

108 

YP :M (PT) = 

: rem 

105 

: rem 

129 

t (PT) = 

; PL (P 

: rem 

50 

: rem 

208 

: rem 

200 

: rem 

229 

: rem 

64 

: rem 

139 

PRIGIONE» 

: rem 

166 

1 JT (PT) "TU 

: rem 

222 


4190 PRINT :PRINT"CI SEI DA (DE 
RNI" 

4200 PRINT"PUOI : { 5 SPAZI)1.( 2 SPAZIJPAG 
ARE $50" : rem 166 

4210 PRINT" ( 10 SPAZI ) 2. { 2 SPAZI )USARE * 
ESCI GRATIS DI { 18 SPAZI (PRIGIONE. " 

:rem 165 

4220 PRINT" { 10 SPAZI ) 3. { 2 SPAZI } TENTARE 
DI FARE DOPPIO." : rem 177 

4230 PRINT : INPUT"SCEGLI" ; I : IFI<10RI>3THEN 
4230 :rem 113 

4240 IFI=1THENM (PT) =M (PT) -50 : FP=FP+50 : PL ( 
PT) =1 1 : GOSUB1 910 : JE=1 : RETURN 

: rem 5 

4250 IFI=2ANDCJ ( 1) =PTTHENCJ ( 1) =0 : PL (PT) =1 
1 : GOSUB1 910 :JE=1: RETURN : rem 192 

4260 IFI=2ANDCJ (2) =PTTHENCJ (2) =0 :PL (PT) =1 
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1:G0SUB1 910 :JE=1: RETURN : rem 195 
4270 IFI=2THENPRINT"NON HAI LA CARTA" :GOT 
04230 : rem 5 

4280 IFI=3THENGOSUB1780 : IFDBTHEN4340 

:rem 222 

4290 PRINT"NON HAI FATTO DOPPIO." 

: rem 212 

4300 IFJT (PT) >2THENPRINT"DEVI PAGARE I $5 
0":M(PT)=M(PT)-50:PL(PT)=11: JB=1 

: rem 4 6 

4310 IFJT (PT) >2THENGOSUB1910 :FP=FP+50 :RET 
URN : rem 33 

4320 GOSUB1910 : RETURN : rem 46 

4330 IFPL (PT) =11THENGOSUB1910 : JE=1 : RETURN 

: rem 8 4 

4340 PRINT"L ' HAI FATTO ! ! ! " :PL (PT) =11 :GOS 
UB1910 : JB=1 :DB=0 :RETURN : rem 44 

4350 GOTO6490 :rem 216 

4360 PRINT" (CLR) " : IFPFTHENPRINT"SOLDI IN 
CASSA DEL PARCHEGGIO $";FP : rem 176 
4370 P R I NT " G I OC AT ORE 1 HA $";M(1) :PRINT"G 
IOCATORE 2 HA $";M(2) : rem 182 

4380 PRINT :PRINT"GIOCATOkE";PT"TIRA" 

:rem 87 

4390 PRINT: PRINT :PRINTTAB( 12) ;"POSSIBILIT 
A'" : rem 95 

4400 PRINT : rem 85 

4410 PRINT" ( 3 SPAZI)R=RI VEDERE PROPRIETÀ 
' " : rem 92 

4420 PRINT" { 3 SPAZI } L=LISTA DI TUTTE LE 
PROPRIETÀ'" : rem 50 

4430 PRINT" { 3 SPAZI }B=COSTRUZIONE CASE/A 
LBERGHI" : rem 9 

4440 PRINT" { 3 SPAZI ) S=VENDITA PROPRIETÀ' 
AD ALTRO GIOCA- { 6 SPAZI} TORE" 

:rem 230 

4450 PRINT" { 3 SPAZI }M=IPOTECA PROPRIETÀ' 
(VENDITA CASE) " : rem 130 

4460 PRINT" { 3 SPAZI )D=VIS IONE TITOLI AZI 
ONI " : rem 220 

4470 PRINT" { 3 SPAZI }Q=RITORNO AL GIOCO" 

: rem 8 9 

4480 PRINT" { 2 SPAZI )XX=FINE GIOCO" :PRINT 

:rem 232 


4490 

INPUT"SCEGLI { 2 SPAZI }{ 2 

SPAZI} 



{ 3 SIN} " ;C$ 

: rem 

148 

4500 

IFC$=" { 3 SIN J "THEN44 90 

: rem 

255 

4510 

I FC $= " R" THENGOSUB 4600 

: rem 

12 

4520 

IFC$="L"THENGOSUB4770 

: rem 

15 

4530 

IFC$="B" THENGOSUB 4 920 

: rem 

3 

4540 

IFC$="S"THENGOSUB5360 

: rem 

20 

4550 

IFC$="M"THENGOSUB5720 

: rem 

15 

4560 

IFC$="D"THENGOSUB67 90 

: rem 

15 

4570 

IFC$="Q"THENRETURN 

: rem 

167 

4580 

IFC$=" XX"THEN6570 

: rem 

249 

4590 

GOTO4360 

: rem 

216 

4600 

INPUT"PER QUALE GIOCATORE 

(1 O 2) 

";F 


N 

: rem 

118 

4610 

IFPN< 10RPN>2 THEN 4600 

: rem 

13 

4620 

PRINT" {CLR} {GIU' }" 

: rem 

65 


4630 PRINTTAB (6) "PROPRIETÀ' GIOCATORE ";P 
N : rem 7 9 

4640 PRINT : rem 91 

4650 F0RI=1T04 0 : PO$=" " : IFPS ( I ) =PNTHENPRIN 
TPN$ ( I ) ; : rem 38 

4660 IFPS (I) OPNTHEN4730 : rem 177 

4670 IFPT$ (I) <>"P"THEN47l0 : rem 203 

4680 PRINTSPC (20- (LEN (PN$ (I) )-2) ) ;"{WHT) 

: IFH (I) <5THENPO$=STR$ (H (I) )+" HS" 

:rem 242 

4690 IFH ( I ) =5THENPO$=" {RVS ) ALBERGHI {OFF} 
" : rem 1 1 

4700 PO$=PO$+"/$"+MID$ (STR$ (P (I,H (I) +2) ) , 
2) :rem 235 

4710 IFMG ( I ) =1THENP0$="- IPOTECATO" 

:rem 63 

4720 PRINTPOS :rem 29 

4730 NEXT :rem 13 

4740 PRINT : IFCJ (1) =PNORCJ (2) =PNTHENPRINT" 
{WHT} CARTA PER USCIRE GRATIS DI PRIG 
IONE" : rem 113 

4750 PRINT" {WHT} GIOCATORE"PN"HA $";M(PN) 




: rem 

73 

4760 

PRINT:GOSUB1910 rRETURN 

: rem 

253 

4770 

PRINT" {CLR}" 

: rem 

54 

4780 

TT$="NOME { 28 SPAZI }PROPR/ {GIU' } 



{ 6 SIN}# CASE" : PRINTTT$ 

: rem 

162 

4790 

FORK=lTO40 : IFPT$ (K) <>"P"ANDPT$ (K) <>" 


RR"ANDPT$ (K) <>"U"THEN4880 

: rem 

156 

4800 

PRINTPNS (K) " { WHT } " ; TAB (21) 

; : rem 

1 

4810 

PRINTTAB (33) 

: rem 

232 


4820 P$=STR$ (PS (K) ) :PP$=MID$ (STR$ (H (K) ) , 2 



) : IFH (K) >4THENPP$="H" 

: rem 

65 

4830 

IFPT$ (K) <>"P"THENPP$="X" 

: rem 

156 

4840 

IFMG (K) THENPP$=" {RVS } MG {OFF } " 




: rem 

59 

4850 

P$=P$+" -”+PP$ 

: rem 

129 

4860 

IFPS (K) =0THENP$=" NESS." 

: rem 

152 

4870 

PRINTPS 

: rem 

212 

4880 

IFK=20THENPRINT : GOSUB1910 

: PRINT” 



{CLR}" :PRINTTT$ 

: rem 

191 

4890 

NEXTK 

: rem 

95 

4900 

PRINT :GOSUB1910 

: rem 

223 

4910 

RETURN 

: rem 

174 

4920 

PRINT" {CLR} { 2 GIU'}" 

: rem 

85 

4930 

HO=0 

: rem 

212 

4940 

PRINT" SU CHE GRUPPO" :PRINTPG$ 




: rem 

121 

4950 

PRINT 

: rem 

95 

4960 

INPUT"QUALE COLORE" ;C$ 

: rem 

133 

4970 

F0RI8=1T041 : IFC$=LEFT$ (C$ (18) , LEN(C$ 


) )THENPL=I8:C$=C$ (18) :GOTO5000 




: rem 

147 

4980 

NEXTI8 

: rem 

149 

4990 

PRINT "GRUPPO NON VALIDO": 

GOTO4960 



: rem 

116 

5000 

P7=PT 

: rem 

45 

5010 

P5=P7 :GOSUB2510 : IFMGTHENOA=0 




: rem 

26 

5020 

IFOATHEN5050 

: rem 

223 
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5030 PRINT"MI SPIACE NON POSSIEDI TUTTE L 
E PROPRIE-TA' DI QUEL GRUPPO 0 UNA"; 

: rem 111 

5040 PRINT" E' IPOTECATA." :GOSUBl 910: RETU 
RN : rem 10 9 

5050 PRINT" { 3 SPAZI }NOME PROPRIETÀ' 

{ 2 SPAZI}# DI CASE (5=ALBERGO) " 

: rem 50 

5060 HS=0 : FORI=PLTOPL+4 : IFC$=C$ (I) THENPRI 
NTPN$ (I) " { WHT } " ; TAB (30 ) ;H (I) :HS=HS+H 
(I) : rem 32 

5070 NEXT : rem 11 

5080 PRINT :PRINT"LE CASE DI QUESTO GRUPPO 
{SPAZI {COSTANO $"P (PL, 9) "CAD . " 

: rem 2 0 

5090 PRINT"GLI ALBERGHI COSTANO $"P(PL, 9) 
"+ 4 CASE O $"; (P (PL, 9) *5) : rem 85 

5100 PRINT : rem 83 

5110 PRINT"TU HAI $"M(PT) : rem 121 

5120 PRINT"GLI ALBERGHI VENGONO AUTOMATIC 
AMENTE { 4 SPAZI } AGGIUNTI DOPO LA 4. A 
CASA" : rem 2 

5130 PRINT"QUANTE CASE VUOI COSTRUIRE ? ( 
MAX=" ; :MX=( (5*PC) -HS) :PRINTMX") " 

: rem 157 

5140 INPUTHN : IFHN>MXTHENGOTO5130 : rem 99 
5150 H7=INT (HN/PC) :H8=HN- (H7*PC) : rem 98 

5160 IFM (P7) < (HN*P (PL, 9) ) THENPRINT"NON HA 
I ABBASTANZA SOLDI !!!!" :GOTO5130 

: rem 62 

5170 IFHN=0THENPRINT"OK" : GOSUB1 9 1 0 : RETURN 

: rem 152 

5180 M(P7) =M(P7) - (HN*P (PL, 9) ) :FORE=PLTOPL 
+4 : IFC$=C$ (E) THENH (E) =H (E) +H7 

: rem 7 8 

5190 NEXT : rem 14 

5200 IFH8THEN5220 :rem 206 

5210 GOTO5350 :rem 206 

5220 PRINT"TI RIMANGONO"H8"CASE" : rem 193 

5230 PRINT : F1=0 : FORF=PLTOPL+4 : IFC$=C$ (F) T 
HENF1=F1+1:PRINTF1,PN$(F) 

{ 2 SPAZI }"H(F) : rem 149 

5240 NEXT: PRINT :FORG=lTOH8 : rem 202 

5250 PRINT"DOVE VUOI LA CASA #"G;:INPUTHL 
: IFHL=HOTHENPRINT"NON PUOI" :GOTO5250 

: rem 7 8 

5260 F2=0:F1=0:F9=0 :rem 246 

5270 FORF=PLTOPL+3 : IFC$=C$ (F) THENF1=F1+1 : 

IFF1=HLTHENF9=F : rem 212 

5280 NEXTF : rem 84 

5290 IFF9=OTHENPRINT"NON QUEL NUMERO" :GOT 
05250 : rem 130 

5300 H2=0 : FORF=PLTOPL+3 : IFC$=C$ (F) THENIFH 
(F9) >H (F) THENH2=H2+1 : rem 166 

5310 NEXT : rem 8 

5320 IFH2THENPRINT "DISTRIBUZIONE INVALIDA 
DELLE CASE ! " :GOTO5250 : rem 232 

5330 HO=HL:H(F9)=H(F9)+l : rem 54 

5340 NEXTG :rem 82 

5350 PRINT "FATTO" : GOSUB1 910 : RETURN 


:rem 187 

5360 INPUT"CHE GIOCATORE HA PROPRIETÀ' DA 
VENDERE"; PI : rem 191 

5370 IFP1=OTHENGOSUB1910 : RETURN : rem 224 
5380 P2=P1+1 : IFP2>2THENP2=P2-2 :rem 246 
5390 PRINT"E ' UNA PROPRIETÀ' INPUTQ$ . I 
FLEFT$ (Q$, 1) ="N"THEN5600 : rem 140 

5400 PRINT" IN CHE GRUPPO DI COLORE" : PRINT 
PG$ : rem 177 

5410 PRINT: INPUT"QUALE";C$ : rem 127 

5420 F0RI6=1T041 : IFC$=LEFT$ (C$ (16) ,LEN(C$ 
) ) THENPL=I6:C$=C$ (16) :GOTO5450 

:rem 139 

5430 NEXT 16 :rem 138 

5440 PRINT "GRUPPO ERRATO { 2 SPAZI }": GOT05 
410 :rem 133 

5450 PRINT"# { 2 SPAZI } PROPRIETÀ' ; TAB (30 ) ; 

"PROPR" : rem 85 

5460 HO=0 : CT=0 : FORI=PLTOPL+4 : IFC$=C$ (I) TH 
ENCT=CT+1 : PRINTCT" { 3 SPAZI } "PN$ (I) " 
{ WHT } " ; TAB (35) ; P S ( I ) : rem 224 

5470 IFH (I) THENHO=l : rem 117 

5480 NEXT :rem 16 

5490 PRINT :PRINT"QUALE VENDE IL GIOCATORE 
"PI : rem 7 

5500 INPUTTP : rem 254 

5510 CT=0 :FORI=PLTOPL+4 : IFC$=C$ (I) THENCT= 
CT+1 : IFCT=TPTHENT4=I : FF=1 : rem 198 

5520 NEXT : rem 11 

5530 IFFF=0THENPRINT "NUMERO ERRATO 

{ 2 SPAZI }":GOTO5490 : rem 61 

5540 IFPS (T4) <>PlTHENPRINT"GIOCAT #"Pl"NO 
N LO POSSIEDE. ":GOTO5360 : rem 196 

5550 IFHOTHENPRINT" HAI CASE SU QUEL GRUPP 
0 NON PUOI VENDERE. ":GOT05 5 90 

: rem 6 8 

5560 INPUT "A QUANTO VUOI VENDERE" ; SP 

:rem 231 

5570 M ( P 1 ) =M (PI) +SP:M(P2) =M(P2) -SP:PS (T4) 
=P2 : rem 22 

5580 PRINT "GIOCATORE #"P2"COMPRA "PN$(T4) 
" {WHT} " :PRINT"PER $"SP : rem 136 

5590 PRINT :GOSUBl 9 10 : RETURN : rem 255 

5600 PRINT"PROPRIETA'";TAB(30) ; "PROPR" 

: rem 8 1 

5610 FORI=6TO36STEP10 :N=N+1 :PRINTN" 

{ 2 SPAZI } "PN$ ( I ) " {WHT } " ; TAB (35) ; PS ( 
I) :NEXT :N=0 : rem 54 

5620 PRINT" 5 { 3 SPAZI } "PN$ ( 13) " {WHT }"; TA 
B(35) ;PS (13) : PRINT" 6{ 3 SPAZI }"PN$( 
2 9) " { WHT } " ; TAB (35) ; P S ( 2 9 ) : rem 94 

5630 INPUT"QUALE #" ;NM: IFNM=0THENRETURN 

: rem 243 

5640 IFNM< 1 ORNM> 6 THEN 5630 : rem 19 

5650 IFNM=5ANDPS (13) =P1THENSN=13 : GOTO5690 

:rem 13 

5660 IFNM=6ANDPS (29) =P1THENSN=29 :GOTO5690 

:rem 29 

5670 IFNM>0ANDNM<5THENSN=6+ ( (NM-1) *10) : IF 
PS (SN) =PlTHENGOTO5690 : rem 53 


10/87 SUPERCOMMODORE C64 &128 23 


5680 PRINT"NON E' TUO" :GOTO5600 : rem 49 
5690 INPUT"PREZZO RICHIESTO" ; SP : rem 26 
5700 M (PI) =M (PI) +SP :M (P2 ) =M (P2) -SP : PS (SN) 
=P2 :rem 42 

5710 GOSUB1 910: RETURN : rem 50 

5720 PRINT" {CLR} {GIU* } " :PRINT" { 2 SPAZI} 
POSSIBILITÀ’ {GIU ' }":PRINT"0 
{ 2 SPAZI} RITORNO { 12 SPAZI}" 

: rem 4 9 

5730 PRINT" 1{ 2 SPAZI } IPOTECA PROPRIETÀ'" 

:rem 179 

5740 PRINT"2 { 2 SPAZI } IPOTECA STAZIONI" :P 
RINT"3 { 2 SPAZI} IPOTECA SOCIETÀ'" 

:rem 187 

5750 PRINT" 4 { 2 SPAZI }CANC. IPOTECA (AL 10% 
INTERESSE) ":PRINT"5{ 2 SPAZI }VENDIT 
A CASE": PRINT : rem 98 

57 60 INPUT "SCEGLI" ; GG : IFGG<OORGG>5THEN57 6 
0 :rem 140 

5770 IFGG=0THENGOSUB1910 :RETURN : rem 241 
5780 ONGGGOSUB5 800, 6030, 6120, 6200, 6830 

: rem 3 9 

5790 GOTO5720 :rem 220 

5800 PRINT: PRINT" IN CHE GRUPPO E' LA PROP 
RIETA’ " : PRINTPG$ : rem 1 

5810 PRINT: INPUT "COLORE ";C$ : rem 207 

5820 F0RI6=1T041 : IFC$=LEFT$ (C$ (16) , LEN (C$ 
) )THENPL=I6:C$=C$ (16) :GOTO5850 

:rem 147 

5830 NEXTI6 :rem 142 

5840 PRINT "GRUPPO ERRATO { 2 SPAZI }": GOT05 
810 : rem 141 

5850 CM=0 : FORI=PLTOPL+3 : IFC$=C$ (I) THENCM= 
CM+H ( I ) : rem 182 

5860 NEXT : rem 18 

5870 IFCMTHENPRINT"NON PUOI IPOTECARE PRO 
PRIETA' CON CASE" :GOTO6020 : rem 203 
5880 PRINT"# PROPRIETÀ’ ";TAB (25) ; "PROPR" 

:rem 130 

5890 CT=0 : FORI=PLTOPL+4 : IFC$OC$ (I) THEN59 
20 :rem 101 

5900 CT=CT+1 :PRINTCT" { 3 SPAZI } "PN$ ( I ) " 

{WHT } " ; TAB (27) PS (I) ; :PP$="" : IFMG(I) T 
HENPP$=" IPOTECATO" : rem 178 

5910 PRINTPPS : rem 32 

5920 NEXT : rem 15 

5930 PRINT :PRINT"CHE NUMERO VUOI IPOTECAR 
E. " ; : INPUTTP : rem 197 

5940 IFTP=OTHENGOSUB1 910: RETURN : rem 6 

5950 CT=0 :FORI=PLTOPL+4 : IFC$=C$ ( I ) THENCT» 
CT+1 : IFCT=TPTHENT4=I : FF=1 : rem 206 

5960 NEXT : rem 19 

5970 IFFF=0THENPRINT "NUMERO SBAGLIATO" :GO 
TO5930 :rem 13 

5980 IFPS (T4 ) <>PTTHENPRINT"NON TI APPARTI 
ENE. " :GOSUB1910 :GOTO5720 : rem 100 

5990 IFMG (T4) =1THENPRINT"GIA' IPOTECATO": 

GOTO5930 : rem 37 

6000 PRINT :PRINT"OK" :MG(T4) =1 : rem 13 

6010 PRINT" INCASSI $"P (T4 , 8 ) "PER LA TUA I 


6020 

6030 


6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 


POTECA . " :M (PT) =M (PT) +P (T4, 8 ) 

: rem 219 

GOSUB1910 : RETURN : rem 45 

RC=0 :FORI=6TO36STEP10 : IFPT$ (I) ="RR"T 
HENRC=RC+1 : PRINTRC" { 2 SPAZI } "PN$ (I) 
”{WHT}{ 5 SPAZI }PLR. #"PS (I) : rem 84 

NEXT : rem 9 

INPUT "QUALE #";RG : rem 14 

IFRG<10RRG>4THEN6050 : rem 7 

RG=6+( (RG-1) *10) : rem 40 

IFPS (RG) <>PTTHENPRINT"NON TI APPARTI 
ENE . " :GOSUB1910 :GOTO5720 : rem 109 

IFMG (RG) =1THENPRINT"GIA' IPOTECATO. " 
:GOSUB1910 :GOTO5720 : rem 222 

MG ( RG ) = 1 : PRINT " INC AS S I $100 PER L'IP 
OTECA . " :M (PT) =M (PT) +100 : rem 193 


GOSUB1910: RETURN 
U(l) =13 :U(2) =29 
F0RI=1T02 :PRINTI" { 
) " {WHT}" :NEXT 
INPUT "QUALE?" ; UM 


: rem 4 5 
:rem 251 
2 SPAZI } "PN$ (U(I) 
: rem 8 5 

: rem 5 1 


I FUM< 10RUM>2 THEN 6140 : rem 23 

IFPS (U (UM) ) <>PTTHENPRINT"NON TI APPA 
RTIENE . " :GOSUB1910 :GOTO5720 : rem 27 
IFMG (U (UM) ) =1THENPRINT"GIA ' IPOTECAT 
O . ” :GOSUB1910 :GOTO5720 :rem 140 

MG (U (UM) )=1: PRINT" INCASSI $75 PER L' 
IPOTECA. ”:M(PT)=M(PT) +75 : rem 46 

GOSUB1 910: RETURN : rem 53 

PRINT :PRINT"QUESTE SONO LE PROPRIETÀ 
* IPOTECATE." : rem 176 

ML=0 : F0RI=1T04 1 : IFPS ( I ) = (PT) ANDMG (I) 
=1THENML=ML+1 : PRINTML" { 2 SPAZI }"PN$ 
( I ) " { WHT } " : rem 153 

NEXT : rem 9 

IFML=0THENPRINT"NON HAI PROPRIETÀ' I 
POTECATE . " : GOSUB 1 9 1 0 : RETURN : rem 101 
PRINT :INPUT"CHE IPOTECA VUOI CANCELL 
ARE . " ; LF : rem 68 

IFLF<10RLF>MLTHENPRINT"NON VALIDO" :G 
OTO6240 : rem 78 

ML=0 : F0RI=1T04 1 : IFPS ( I ) = (PT ) ANDMG ( I ) 
=1THENML=ML+1 : IFML=LFTHENFT= I 

:rem 213 

NEXT : rem 14 

PRINT" IPOTECATO PER $"P(FT,8) 

: rem 243 

PRINT"DEVI PAGARE $" ; : PY=P (FT, 8 ) *1 . 1 
0 :PRINTPY :rem 242 

IFPY>M (PT) THENPRINT"NON HAI I SOLDI. 
" :GOSUBl 910 : RETURN : rem 207 

M (PT) =M (PT) -PY :MG (FT) =0 : rem 135 

GOSUB1910 :RETURN : rem 48 

IFAFTHEN6350 : rem 223 

RETURN : rem 173 

PL=PL(PT) :PRINTPN$ (PL) " {WHT} VIENE M 
ESSA ALL'ASTA " : rem 16 

PRINT"AL MIGLIOR OFFERENTE " 

:rem 222 

PO=3-PT : PRINT : HB=0 : PA=PT : AC=0 : PRINT : 
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HB=0 : PA=PT : AC=0 


: rem 


78 


6380 

PA=3-PA 

: rem 

144 

6730 

6390 

PRINT "GIOCATORE " P A"QUAL ' E ' 

LA TUA 

. OF 



FERTA "; : INPUTBD : BD=INT (BD) 

: AC=AC+1 




: rem 

126 

6740 

6400 

IFBD=OTHENON(AC>1) +2GOTO6430, 6380 


6750 



: rem 

188 

6760 

6410 

IFBD<=HBTHENPRINT"DEVI OFFRIRE PIU 1 



DI"HB"OPPURE ' 0 ' " :GOTO6390 

: rem 

38 


6420 

HB=BD : HR=P A : GOTO 6380 

: rem 

255 

6770 

6430 

IFHB=0THEN6480 

: rem 

84 


6440 

PRINTPN$ (PL) "{WHT} VA A " 

: rem 

43 


6450 

PRINT "GIOCATORE "HR" PER $"HB 


6780 



: rem 

176 


6460 

M (HR) =M (HR) -HB : PS (PL) =HR 

: rem 

213 

6790 

6470 

RETURN 

: rem 

177 



6480 PRINT : PRINTPN$ (PL) " { WHT } NON ANCORA 
ACQISTATO." : RETURN : rem 174 

6490 PRINT" { CLR } " : PRINT" IL { DES } GIOCATORE 
#"PT"E ' FALLITO!!" : rem 85 

6500 PRINT" {GIU* } SE NON PUOI PROCURARTI $ 
"ABS (M(PT) ) "SEI ELIMINATO rem 250 
6510 PRINT "NON PREMERE {DES }' Q ' (RITORNO A 



L GIOCO) PRIMA DI AVER 

FINITO DI 

PRO 


I $200 {GIU 1 } " : RETURN : rem 

234 


C"; 


: rem 

201 

6830 

PRINT" SU CHE GRUPPO 

DI COLORE ? : " 

: PR 

6520 

PRINT "URARTI I SOLDI" 


: rem 

57 


INTPG$ : INPUTCS 

: rem 

116 

6530 

GOSUB1910 :GOSUB4360 


: rem 

160 

6840 

PL=0 :FORI=41T01STEP 

-1 : IFC$=LEFT$ (C$ ( 

6540 

IFM (PT) >=0THENRETURN 


: rem 

90 


I) , LEN (C$) ) THENPL=I 

:C$=C$ (I) 


6550 

IFM (PT) <0THENPRINT"SEI 

IN BANCAROTTA 



: rem 

86 


! ! ! " : PT=3-PT 


: rem 

230 

6850 

NEXTI : IFPLTHEN6870 

: rem 

196 

6560 

PRINT" —GIOCATORE #" 

PT"HAI VINTO! — 

6860 

PRINT "GRUPPO ERRATO 

" :GOTO6830 



" :END 


: rem 

146 



: rem 

147 

6570 

PRINT"GAME OVER" 


: rem 

249 

6870 

DO=0 : HN=0 : FORI=PLTOPL+3 : IFPS ( I ) <> (PT 

6580 

PRINT" IL VINCITORE E' 


; : rem 

147 


) ANDC$=C$ ( I ) THENDO= 

1 : rem 

15 

6590 

IFM ( 1 ) >M ( 2 ) THENPRINT" 

IL GIOCATORE #1 

6880 

IFC$=C$ ( I ) THENHN=HN+H ( I ) : rem 

175 


CON $ "M ( 1 ) 


: rem 

153 

6890 

NEXT 

: rem 

22 

6600 

IFM ( 2 ) >M ( 1 ) THENPRINT" 

IL GIOCATORE #2 

6900 

IFDO=lORHN=0 THENPRINT "NON POSSIEDI C 


CON $"M(2) 


: rem 

147 


ASE SU QUESTE PROPRIETÀ' " :GOSUBl 910 : 

6610 

IF M (2) =M(1) THENPRINT 

»t 

NESSUNO/ 



RETURN 

: rem 

101 


{ 2 SPAZI} SIETE PARI!" 

: rem 

86 

6910 

PRINT"# { 2 SPAZI } PROPRIETÀ' " ;TAB (25) 

6620 

PRINT "GIOCATORE 1 ={ 

2 

SPAZI }$"; 

M ( 1) 


; "CASE (5=HOTEL) " 

: rem 

69 




: rem 

216 

6920 

CT=0 : FORI=PLTOPL+3 : 

IFC$=C$ ( I ) THENCT= 

6630 

PRINT "GIOCATORE 2 ={ 

2 

SPAZI }$"; 

M (2) 


CT+1 :PRINTCT" { 3 SPAZI } "PN$ (I) " {WHT} 




: rem 

219 


" ; T AB ( 2 7 ) H ( I ) 

: rem 

14 

6640 

PRINT 


: rem 

93 

6930 

NEXT 

: rem 

17 

6650 

POKE54296, 0 :F0RI=1T06 


POKEG(I) / 0 

: END 

6940 

INPUT"PUOI TOGLIERE 

TUTTE QUESTE 

CAS 




: rem 

206 


E'* ; A$ : IFLEFT$ (A$, 1) 

= ,, S ,, THEN7080 


6660 

F0RJ=832T0939 


: rem 

37 



: rem 

101 

6670 

READI : POKEJ, I : NEXT J 


: rem 

35 

6950 

PRINT :INPUT"DA CHE 

# VUOI TOGLIERE L 


6680 DATA 160,0,185,0,4,153,0,192,185,0,5 
,153,0,193,185,0,6,153,0 : rem 106 

6690 DATA 194,185,0,7,153,0,195,185,0,216 
,153,0,196,185,0,217,153,0 :rem 231 
6700 DATA 197,185,0,218,153,0,198,185 

: rem 4 6 

6710 DATA 0,219,153,0,199,200,208,205,96, 
160,0,185,0,192,153,0,4,185,0,193,15 
3 :rem 244 

6720 DATA 0,5,185,0,194,153,0,6,185,0,195 
,153,0,7,185,0,196,153,0,216,185,0,1 


6800 


6810 

6820 


97 : rem 45 

DATA 153,0,217,185,0,198,153,0,218,1 
85,0, 199,153,0,219,200,208,205, 96 

:rem 65 

RETURN : rem 177 

F0RP4=1T02 : rem 128 

Y$=" {RVS } "+PN$ (PL (P4) ) +LEFTS (" {SIN} 
{DES}{ 15 SPAZI}", 18- (LEN(PN$(PL(P4) 

) ) -2 ) )+"{OFF}" : rem 130 

MN$=" { RVS } $"+MID$ (STR$ (M(P4) ) ,2)+" 

{ 4 SPAZI } {OFF } " : X=13 : Y=2*P4+3 : Z$=Y$ 
:GOSUB1730 : rem 235 

Y=Y+1 : Z$=MN$ :GOSUB1730 :NEXT : RETURN 

:rem 236 

PRINT" {GIU' }PER CHE GRUPPO DI COLORE 
VUOI VEDERE { 4 SPAZI} LA SITUAZIONE 
? : { GIU 1 } " : PRINTPGS : INPUTCS : PRINT 

: rem 55 

P3=PL:F0RI=1T041 : IFC$=LEFT$ (C$ (I) , LE 
N (C$) ) THENGF=1 : PL=I :GOSUB2080 :GF=0 

:rem 25 

NEXT:PL=P3: RETURN :rem 190 

M(PT)=M(PT) +200: PRINT" {GIU' } INCASSAT 


A CASA ?";TP : rem 72 

6960 IFTP=0THEN RETURN : rem 132 

6970 CT=0 : FORI=PFTOPL+3 : IFC$=C$ ( I ) THENCT= 
CT+1 : IFCT=TPTHENT4=I :FF=1 : rem 202 

6980 NEXT : rem 22 

6990 IFFF=0THENPRINT "NUMERO ERRATO" : GOTO 6 
950 :rem 74 

7000 IFH (T4) =0THENPRINT"NON CI SONO CASE" 
:GOTO6950 : rem 253 

7010 NN=0:NH=H(T4) : FORI=PLTOPL+3 : IFH ( I ) >N 
HTHENNN=1 : rem 151 
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7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 


NEXT : rem 8 

IFNNTHENPRINT"NON PUOI TOGLIERE QUEL 
LA CASA. ":G0T06 950 :rem 201 

PRINT : PRINT"OK . " : H (T4 ) =H (T4 ) -1 

: rem 6 6 

HM=P (PL, 9 ) / 2 : rem 161 

PRINT"HAI INCASSATO $"HM"PER LA TUA 
CASA" :M (PT) =M (PT) +HM : rem 67 

GOSUB1910 :GOTO5720 : rem 90 

HM=0 : FORI=PLTOPL+3 : IFC$=C$ ( I ) THENHM= 
HM+ (P (PL, 9) /2) *H (I) :H(I)=0 : rem 201 
NEXT : PRINT "HAI INCASSATO $"HM"PER LA 
TUA CASA" :M(PT)=M(PT) +HM:GOTO7070 

: rem 0 








) 


} 


Corri in edicola! 



CORSO AVANZATO 
DI CULTURA INFORMATICA 

Dalla grande sapienza informatica Jackson nasce Bytes, 
il primo vero corso di cultura informatica. Con B y tes 

' Fortran. Cobol. Assembler . 

:i a fondo le a p plicazioni: 

ematica musicale , 

com puter g rafica. 

Im pari a procedere nella programmazione e nei sistemi 

o perativi, con sicurezza. 

Perchè Bytes è una “pagina aperta”, chiara, autorevole 
e completa, per chi studia, chi insegna, chi lavora. 

Bytes: la nuova cultura universale, da oggi in edicola in 
60 fascicoli settimanali, da rilegare in 6 splendidi volumi, 
che ti offrono tutto il sapere informatico a portata 
di mano. Scegli Bytes e sei pronto a mordere il futuro. 
Bytes. Nuovo da Jackson. 


JACKSON 


60 fascicoli 
6 volumi 
1700 pagine 

5000 foto e illustrazioni 
a colori 
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di J. Alien 

trad. ed adatt. di E.Stefani 


Una volta abituati alia velocità ed 
efficienza dell'autoboot dei pro- 
grammi sul CI 28, risulta penoso 
ritornare a lavorare In maniera tra- 
dizionale in modo 64. Questo uti- 
le programma offre una soluzio- 
ne. E' richiesto un disk drive 
1541 oppure 1571. 

Normalmente, la caratteristica dell'auto- 
boot del CI 28 non è disponibile in mo- 
do 64. Fast Boot vi permette di inserire 
un disco nel drive, accendere il compu- 
ter e, in pochi secondi, caricare ed attiva- 
re un programma per C64. 

Se avete un drive 1571, Fast Boot per- 
mette inoltre di caricare il programma ad 
una velocità cinque volte superiore a 
quella standard per i programmi del C64. 
Dal momento che molti giochi e Utilities 
consistono in più di un programma, Fast 
Boot vi permette di caricare fino a tre pro- 
grammi alla volta. 

Come usare Fast Boot 

Il primo programma scrive su disco quat- 
tro file in linguaggio macchina che verran- 
no utilizzati dal secondo programma. 
Questa è l'unica funzione del program- 
ma 1 , il quale pertanto non servirà più do- 
po aver creato questi quattro file. 

Il programma 2 deve essere salvato sullo 
stesso disco contenente i quattro file ge- 
nerati dal programma 1 . 


Assicuratevi quindi di avere nel drive un 
disco contenente i quattro programmi in 
linguaggio macchina e il programma 2, a 
cui date il RUN. 

Fast Boot caricherà i quattro file e quindi 
vi chiederà di inserire nel drive il disco 
programma: dovrete quindi inserire nel 
drive il disco che contiene il (o i) pro- 
grammi per C64 da mandare in autoboot 
(Si noti che Fast Boot funziona soltanto 
con programmi per C64!). 

Fast Boot chiede se desiderate osserva- 
re la directory del disco, e quindi doman- 
da il numero di programmi di autoboot 


(da 1 a 3). Dovrete quindi digitare il no- 
me del file di ciascun programma per 
C64 da mandare in autoboot; per ciascu- 
no dovrete descriverne il tipo (BASIC o 
BINARIO per programmi in linguaggio 
macchina), e scegliere tra LOAD (sempli- 
ce caricamento) e RUN (caricamento e 
autoesecuzione). 

I programmi in linguaggio macchina che 
caricano nelle stesse locazioni dei pro- 
grammi BASIC (ad esempio Spee- 
dScript) dovranno essere descritti come 
programmi BASIC e non BINARI. 

Fast Boot vi chiederà quindi un nuovo 
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disco, quello da rendere autoboot. 
Inseritelo nel drive e scegliete, rispon- 
dendo all'apposita domanda, se format- 
tarlo o meno. 

Fast Boot salva quindi alcuni file su disco 
e termina la sua esecuzione. Il disco in 


Alcune note 

I programmi BASIC caricano in locazioni 
di memoria più alte quando il computer si 
trova in modo 128: sono quindi possibili 
conflitti di memoria quando si carica più 


lanciata in autoboot, ma non si può usa- 
re l’opzione di FAST BOOT per lanciare 
in autoboot SpeedScript e caricare an- 
che un file di testo di SpeedScript. 

Non cercate di caricare e eseguire pro- 
grammi BASIC che non siano stati salvati 


esame sarà ora un disco di autoboot per di un programma. Per esempio, la versio- in modo 64 oppure da un C64. 
programmi perC64. ne per C64 di SpeedScript può essere 


Fast Boot 
Programma 1 

10 REM PROGRAMMA CON L/M PER FASTBOOT 
30 : 

40 PRINT" {CLR}"TAB( 81) "VERRANNO SALVATI Q 
UATTRO { 3 SPAZI}" 

50 PRINT "PROGRAMMI L/M SU DISCO: ASSICURA 
TEVI" 

60 PRINT"CHE IL DISCO DA USARE SIA UGUALE 
A" 

70 PRINT "QUELLO CON FASTBOOT!" 

80 PRINT :PRINT"PREMI SPAZIO PER CONTINUAR 
E" 

90 GETKEY ZZ$:IF ZZ$<>" " THEN 90 
100 AD=49152 :EA=49178 :GOSUB 310 
110 READ DA:DA=DA/137 :POKE AD,DA:AD=AD+1 
120 E A= 49197 : GOSUB 310 

130 READ DA:DA=DA/55 :POKE AD, DA: AD=AD+1 

140 EA=49241: GOSUB 310 

150 PN$="FAST LOAD M/L":GOSUB 330 

160 : 

170 POKE 49179, 137-.POKE 49198, 55 :AD=49242 
180 RESTORE 510 :EA=AD+38 : GOSUB 310 
190 PN$="FAST RUN M/L":GOSUB 330 
200 : 

210 RESTORE 570 : AD=49171 :EA=AD+61 :GOSUB 3 
10 

220 READ DA:DA=DA/203:POKE AD, DA: AD=AD+1 
230 EA=AD+17: GOSUB 310:READ DA:DA=DA/43 :P 
OKE AD,DA:AD=AD+1 

240 EA=AD+69 : GOSUB 310 : PN$="FAST LOAD BAS 
IC": GOSUB 330 
250 : 

260 AD=49171 + 62 : POKE AD, 203 : AD=AD+19 : POKE 
AD, 43 

270 AD=AD+71:EA=AD+2 3: RESTORE 780:GOSUB 3 
10 

280 PN$="FAST RUN BASIC" :GOSUB 330 
290 END 
300 : 

310 DO UNTIL AD=EA+1 : READ DA: POKE AD, DA: A 
D=AD+1 : LOOP : RETURN 
320 : 

330 RESTORE 8 3 0 : E A=E A+ 8 : GOSUB 310 
340 BSAVE (PN$) ,B0,P49152 TO P (AD) 

350 RETURN 
360 : 

370 DATA 169,3,141,48,208,162,0,189 
380 DATA 144,1,157,0,128,232,224,9 
390 DATA 208,245,169 
400 : 


410 DATA 48,133,95,169,4,133,96,169 
420 DATA 13426,133,90,169,4 
430 DATA 133,91,169,144,133,88,169,1 
440 DATA 133,89,32,191,163,76,5170,1 
450 DATA 162,1,142,22,208,32,163,253 
460 DATA 32,80,253,32,21,253,32,91 
470 DATA 255,88,32,83,228,32,191,227 
480 DATA 32,34,228,162,251,154,173,153 
490 DATA 1,141,17,3,173,154,1,141,18,3 
500 : 

510 DATA 169,83,141,119,2,169 
520 DATA 89,141,120,2,169,83,141,121 
530 DATA 2,169,55,141,122,2,169,56 
540 DATA 141,123,2,169,52,141,124,2 
550 DATA 169,13,141,125,2,169,7,133,198 
560 : 

570 DATA 1,133,25,169,32 
580 DATA 133,26,169,1,133,27,133,43 
590 DATA 169,8,133,44,133,28,174,154 
600 DATA 1,240,16,160,0,177,25,145 
610 DATA 27,200,208,249,230,26,230,28 
620 DATA 202,208,242,174,153,1,240,8 
630 DATA 177,25,145,27,200,202,208,248 
640 DATA 169,102,133,95,169,4,133,96 
650 DATA 169,36337,133,90,169,4,133,91 
660 DATA 169,144,133,88,169,1,133,89 
670 DATA 32,191,163,76,2881,1,162,1 
680 DATA 142,22,208,32,163,253,32,80 
690 DATA 253,32,21,253,32,91,255,88 
700 DATA 32,83,228,32,191,227,173,1 
710 DATA 8,141,144,1,173,2,8,141 
720 DATA 145,1,32,34,228,173,144,1 
730 DATA 141,1,8,173,145,1,141,2 
740 DATA 8,162,251,154,24,173,153,1 
750 DATA 101,43,133,45,173,154,1,101 
760 DATA 44,133,46 
770 : 

780 DATA 169,82,141,119,2 

790 DATA 169,85,141,120,2,169,78,141 

800 DATA 121,2,169,13,141,122,2,169 

810 DATA 4,133,198 

820 : 

830 DATA 169,0,141,48,208,76,116,164 

Programma 2 

0 GOTO 260 

1 PN$ (1)=" 012345678 9ABCDEF" : LP (1) =12345 : 1 

=1 

2 PN$ (2) ="0123456789ABCDEF" :LP(2)=12345:I 
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=2 

3 PN$ (3) ="0123456789ABCDEF" :LP (3) =12345:1 
=3 

4 DATA 0,4,102,254,195,194,205,56,48,123, 
123 

5 IF PEEK (215)00 THEN PRINT :PRINT" {0}PAS 
SARE SULLE 40 COLONNE ! ! ! " :GRAPHIC 0 

6 FAST : FOR J=1 TO I : BLOAD <PN$ ( J) ) , BO, P (LP 
(J) ) :NEXT 

7 BLOAD " LOADER ROUTINE" , BO , P1024 : SE=400 :P 
A=32768 

8 FOR 1=0 TO 8 : POKE SE+I , PEEK (PA+I) : READ 
DArPOKE PA+I,DA:NEXT 

9 READ DA : POKE SE+I,DA:READ DA: POKE SE+10 
,DA:G064 

10 : 

20 FOR 1=1 TO 5:FAST:NI=NA(I) :AI=AA(I) : IF 
PN$ (I) ="" THEN BEGIN 
30 : IF I<4 THEN DI=DI+1 :DL (DI) =1 :NEXT I 
40 : BEND : GOTO 100 

50 BANK 1 : SZ=PEEK (POINTER (PN$ ( I) ) ) : BANK 0 
: PRINT HH$;PN$ (I) 

60 FOR J=1024 TO J+SZ-1 : P J=PEEK ( J) : IF PJ< 
32 THEN PJ=PJ+64 

70 POKE NI, PJ :NI=NI+1 :NEXT J:POKE NI, 34:1 
F SZ=16 THEN 100 

80 FOR H-NI+1 TO H+15-SZ:POKE H,32:NEXT H 
90 : 

100 PRINT HH$;LP(I) :K1=4:IF I>3 THEN Kl=2 
: SLOW 

110 FOR K=1025 TO K+K1:P0KE AI, PEEK (K) : AI 
=AI+1 :NEXT K :NEXT I 
120 : 

130 FAST : POKE 842, 48 :POKE 843, 13 :K=2 : IF D 
I THEN BEGIN 

140 : FOR 1=1 TO DI:POKE 842+K, ASC (J'ID$ (ST 
R$ (DL (I) ) ,2,1) ) 

150 : BEND :K=K+1: POKE 842+K, 13 : K=K+1 :NEXT 
I 

160 POKE 842+K, 19: K=K+1 : POKE 842+K, 13 :K=K 
+ 1 : POKE 208,K:AD=SB+420 
170 : 

180 IF PEEK (AD) <>203 THEN AD=AD+l:GOTO 18 
0 

190 AD=AD+1 : IF PEEK(AD)<>0 THEN 190 
200 FOR J=1 TO 2 :AD=AD+1 :POKE AD, 0 :NEXT 
210 BQ=AD+1 : POKE 4624, BQ AND 255:POKE 462 
5, BQ/H1 
220 : 

230 PRINT HH$ ; "DSAVE" ; QT$ ; "AUTOEXEC . 64" ; Q 
T$ 

240 COLOR 5, CC: SLOW: END 
250 : 

260 EC$=CHR$ (27) :QT$=CHR$ (34) :DIM LA(ll), 
E A (11) :MT=63700 :MS=49152 
270 HM=32768 :H1=256 :PN$="FAST LOAD BASIC" 
: BA=0 : LA=MS : HH$=" { 2 HOME } { CLR ) " 

280 IF RGR (X) <>0 THEN PRINT : PRINT"PASSARE 
SULLE 40 COLONNE! ! !":GRAPHIC 0 


290 PRINT HH$;TAB (81) "STAND BY . . . " : LA ( 0 ) = 
LA:GOSUB 1040 :EA (0) =EA 
300 LA=LA+H1 : LA (1) =LA:PN$="FAST RUN BASIC 
" : GOSUB 1040 : EA ( 1 ) =EA 
310 LA=LA+H1 : LA ( 10 ) =LA:PN$="FAST LOAD M/L 
" : GOSUB 1040 :EA(10) =EA 
320 LA=LA+H1 : LA ( 11) =LA: PN$="FAST RUN M/L" 
: GOSUB 1040 :EA(11) =EA 
330 PN$=" " : PRINT" {CLR} " : PRINT : PRINT EC$+" 

T INSERIRE DISCO PROGRAMMA NEL DRIVE. 
11 

340 GOSUB 1070 :PRINT" (CLR) VUOI VEDERE LA 
DIRECTORY (S/N) ?" :GOSUB 1200 
350 PRINT HH$ ; TAB (80) ; : IF ZZ$="S" THEN TR 
AP 1240 :OPEN 1, 8, 15, "UOMO" :DIRECTORY 
: PRINT#1, "U0>M1" :DCLOSE : PRINT : SLEEP 1 
: TRAP : PRINT TAB(160)"{ 4 SU}"; 

360 PRINT EC$"T INSERISCI NUMERO PROGRAMM 
I (1,20 3) ." 

370 GETKEY NP$ :NP=VAL (NP$) : IF NP<1 OR NP> 
3 THEN 370 : ELSE IF NP=1 THEN 390 
380 : PRINT: PRINT" {RVS}I PROGRAMMI BASIC 
DEVONO ESSERE PRIMI" 

390 LA=2049 :FOR X=1 TO NP : IF X>1 THEN BEG 
IN: PRINT: PRINT 

400 : PRINT" CI SONO " ;MR; "BYTE RIMANENTI" 

410 : PRINT" (CIRCA" ; INT (MR/255+1) ; "BLOCCH 
I" 

420 : BEND : PRINT" ...CONTINUO (S/N)?":GOSU 
B 1200 :IF ZZ$="N" THEN STOP 
430 : 

440 PRINT: PRINT: PRINT" {SU} NOME PROGRAMMA 
:"; :NL=16 : GOSUB 1110 :PN$ (X) =PN$ 

450 : 

460 DOPEN#2, (PN$) : GOSUB 1280 : GET#2 , LB$, HB 
$ :DCLOSE#2 

470 HB (X) =ASC (HB$) : LB (X) =ASC (LB$) :LP(X)=H 
1*HB (X) +LB (X) 

480 IF LP (X) <2049 THEN PRINT" { 2 HOME} 

{CLR}" : PRINT" NON POSSO UTILIZZARE PR 
OGRAMMI CHE CA-" : PRINT"RICANO SOTTO I 
NI ZIO BASIC! ":STOP 

490 BA=1 : GOSUB 1040 :BA=0 :SZ=EA-LA:EP (X) =L 
P (X)+SZ:HA(X)=EA:IF X=1 THEN BEGIN 
500 :LP (4) = (SZ-HM) AND 255 :LP (5) =INT (SZ/H 
1) 

510 : 

520 :R$=CHR$ (29) :FOR 1=1 TO 8 : RT$=RT$+R$ : 

NEXT : FR$=RT$+R$+R$+R$ 

530 : PRINT : PRINT : PRINT : PRINT" (CAMBIA CON 
SPAZIO) { 2 SU} "EC$"J" ; 

540 : PRINT" BASIC: {RVS} * {OFF} BINARIO: 

{ RVS } { 3 SPAZI} {OFF} { 4 SPAZI } (RETURN 

) 

550 : GOSUB 980 :BI=F1*10 :F1=0 
560 : PRINT: PRINT: PRINT 
570 : 

580 : PRINT: PRINT" { 2 SPAZI } LOAD :{ RVS } * 
{OFF } { 5 SPAZI } RUN: {RVS} { 3 SPAZI} 


30 SUPERCOMMODORE C64&128 10/87 


{OFF > { 4 SPAZI) (RETURN) "; 

590 :GOSUB 980 :RN=F1 :LF=BI+RN 
600 : IF LF<2 THEN LP ( 1) =8193 : EP ( 1) =LP ( 1 ) + 
SZ:GOTO 620 

610 :BEND : LP (4) =LB (X) :LP(5)=HB(X) 

620 LX (X) =LA: LA=EA+1 : MR=MT-LA : NEXT 
630 : 

640 IF NP=1 AND LF<2 THEN 690:ELSE FOR X= 

I TO NP : IF X=1 THEN 660 

650 IF LP (X) <EP (1) THEN PRINT" ERRORE SOV 
RASCRITTURA PRG 1 E";X;:STOP 
660 IF LP (X) <7 600 THEN PRINT" NON POSSIBI 
LE PER L/M CHE CARICA) 8 SPAZI) SOTTO 
IL DECIMALE 7 600!": STOP 
670 NEXT 
680 : 

690 GOSUB 1300 :HD$=HN$ 

692 PRINT HH$;TAB (81) " {RVS {METTI IL NUOVO 
DISCO NEL DRIVE.": GOSUB 1070 

695 GOSUB 1300 :IF HN$=HD$ THEN BEGIN 

696 : PRINT TAB(81)"NON HAI CAMBIATO DISCO 
! " : PRINT" CONTINUO (S/N)?"; 

697 : GOSUB 1200 : IF ZZ$="S" THEN 692 

698 : BEND : STOP 

700 PRINT" {CLR)"TAB (81) "DEVO FORMATTARLO 
(S/N)?"; 

710 GOSUB 1200 : IF ZZ$="N"THEN PRINT" {CLR} 
"TAB (80) ;EC$; "T" :GOTO 800 
720 PRINT: PRINT: PRINT" DISK NAME : " ; :NL=1 6 
: GOSUB 1110 : HD$=PN$ 

730 PRINT TAB (28) "{SU}"; : PRINT "ID:"; :NL=2 
: GOSUB 1110 

740 IF LEN (PN$) =1 THEN PN$=PN$+" " 

750 PRINT: PRINT: PRINT EC$;"T FORMATTING . . 

Il 

760 OPEN15, 8, 15, "NO : "+HD$ + ", "+PN$ :CLOSE 1 
5 

770 IF DS=21 THEN PRINT: PRINT" OCCORRE IL 
CODICE ID ! " : GOTO 720 
780 GOSUB 1280 
790 : 

800 PRINT" {CLR} PREPARAZIONE BOOT DISK... 

II 

810 Z$=CHR$ (0) : Z2$=Z$+Z$ : AE$="AUTOEXEC . 64 

»t 

820 OPEN15, 8,15 :OPEN5, 8,5, "#" : PRINT#15, "B 
-P";5; 0 

830 PRINT#5, "CBM"+Z2$+Z2$+AE$+Z2$+CHR$ (16 
2) +CHR$ (26) ; 

840 PRINT#5,CHR$ (160) +CHR$ (11) +CHR$ (76) +C 
HR$ (165) +CHR$ (175) ; 

850 PRINT#5, "RUN"+CHR$ (34) +AE$+Z$ : PRINT#1 
5, "U2" ; 5; 0 ; 1; 0 

860 PRINT#15, "B-A" ; 0 ; 1 ; 0 : DOLOSE :D$=DS$ 

870 : 

880 PRINT" {CLR} COPIA PROGRAMMI SU BOOT D 
ISK. . ." 

890 FOR X=1 TO NP : BSAVE (PN$ (X) ) , Bl, P (LX (X 
) ) TO P (HA (X) ) 

900 GOSUB 1280 :NEXT X 


910 : 

920 BSAVE " LOADER ROUTINE" , B0, P (LA (LF) ) TO 
P (EA (LF) ) : GOSUB 1280 
930 SB=PEEK ( 45) +H1*PEEK ( 46) :RESTORE 940 
940 FOR 1=1 TO 5 : READ AA : AA ( I ) =SB+AA : NEXT 
:DATA 46,92,138,184,188 
950 FOR 1=1 TO 3: READ AA : NA ( I ) =SB+AA : NEXT 
:DATA 22, 68,114 

960 CC=RCLR(5) : COLOR 5 , RCLR ( 0 ) : GOTO 20 
970 : 

980 PRINTCHRS (27) "J"+RT$; 

990 GETKEY KG$ : IF KG$=CHR$(13) THEN RETUR 
N 

1000 IF KG$<>" " THEN 990:ELSE IF FI THEN 
1020 

1010 PRINT" {RVS } "+FR$+"*"; :Fl=l:GOTO 980 

1020 PRINT" {RVS }*"+FR$+" ";:F1=0:GOTO 980 
1030 : 

1040 BLOAD (PN$) , B (BA) ,P(LA) : EA=H1*PEEK (17 
5)+PEEK(174) : GOSUB 1280:RETURN 
1060 : 

1070 PRINT : PRINT" PREMI SPAZIO QUANDO PRO 
NTO . . . 

1090 GETKEY ZZ$:IF ZZ$OCHR$ (32 ) THEN 109 
0 : ELSE RETURN 
1100 : 

1110 PN$=" " :GK=0 : PRINT" {RVS } "; 

1130 FOR 1=1 TO NL : PRINT" " ; :NEXT : FORI=l 
TO NL: PRINT" {SIN} "; :NEXT 
1140 GETKEY KG$ : IF KG$=CHR$(13) THEN 1180 
: ELSE IF KG$=CHR$(20) THEN PRINT KG$ 
+" {INST} {SIN}"; :GK=LEN (PN$) -1 :PN$=L 
EFT$(PN$,GK) :GOTO 1140 
1160 GK=GK+1 : IF GK>NL THEN PRINT CHR$(7): 
GOTO 1140 

1170 PRINT KG$; : PN$=PN$+KG$ : GOTO 1140 
1180 PRINT KG$ ; : RETURN 
1190 : 

1200 GETKEY ZZ$:IF ZZ$="S” THEN RETURN 
1220 IF ZZ$<>"N" THEN 1200:ELSE RETURN 
1230 : 

1240 IF ER=30 THEN RÉSUMÉ NEXT 
12 60 PRINT ERR$ (ER) ; EL : STOP 
1270 : 

1280 IF DS<20 THEN RETURN: ELSE PRINT"ERRO 
RE: " ; DS$ : DOLOSE : STOP 
1290 : 

1300 OPEN 15, 8, 15 :OPEN 5, 8, 5, "#" :PRINT#15 
, "Ul";5; 8; 5; "#" 

1310 HN$="" :PRINT#15, "B-P" ; 5; 144 :FOR X=1 
TO 20 :GET#5, L$ :HN$=HN$+L$ :NEXT 
1320 DCLOSE : RETURN 
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LE RI VISI 



INDUSTRIA OGGI 

Il mensile dell’alta 
tecnologia nell’industria 
moderna: soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi. 
Abb. annuo 10 numeri 
lire 41.000 ^ 

anziché liri^Bfftfóo 



INFORMATICA 
OGGI MESE 

L’informatica 
professionale: 
dall’elaborazione dati 
all’office automation. 
Servizi speciali e 
anticipazioni esclusive 
della Silicon Valley. 
Abb. annuo 11 numeri 
lire 40.000 
anziché \\?&&SQ!r 



NOI 128 & 64 

La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Abb. annuo 11 numeri 
(con cassetta) lire 70.000 
anziché lir£99=0MT^ 
(con disco) lire 115.000 
anziché li[eJ*£668C 



STRUMENTI 

MUSICALI 

Il mensile per i 
professionisti della 
musica: audiotest, 
rassegne, computer 
music, servizi, interviste 
e recensioni delle ultime 
nocvità discografiche. 
Abb. annuo 11 numeri 
lire 35.000 
anziché li^M^OHO 



ELETTRONICA 

OGGI 


La più autorevole rivista 
italiana di componenti, 
strumentazione ed 
elettronica professionale. 

Abb. annuo 20 numeri 
lire 79.000 
anziché lire 


INFORMATICA 

OGGI 

SETTIMANALE 

Il newsmagazine 
settimanale d’informatica 
professionale Jackson. In 
ogni numero, una 
sezione interamente 
dedicata ai nuovi 
prodotti hardware e 
software. 

Abb. annuo 40 numeri 
lire 80.000 


COMMODORE 

PROFESSIONAL 

La rivista professionale 
per gli utenti di 
Commodore Amiga, 
C128 e C64. 

Abb. annuo 10 numeri 
lire 48.000 
anziché lir£*HMMnr 


NAUTICAL 

QUARTERLY 

Il trimestrale di cultura 
nautica più prezioso e 
raffinato del mondo. 
Emozioni da leggere, 
guardare e conservare. 
Abb. annuo 4 numeri 
lire 70.000 
anziché li^B^ftflflQ 



EO NEWS 

Il primo e unico 
settimanale professionale 
italiano di elettronica, 
strumentazione e 
automazione, con una 
sezione interamente 
dedicata ai nuovi 
prodotti. 

Abb. annuo 40 numeri 
lire 79.500 



PC WORLD 
MAGAZINE 


La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 11 numeri^ 
lire 44.000 
anziché lir£ 

Abb. annuo 11 numeri^ 

PC W.Magazine + PC Floppy 
lire 105.000 
anziché lire fòtiQO 




OLIVETTI 
PRODEST USER 

L’unica rivista per gli 
utenti dei sistemi Olivetti 
Prodest PCI 28 e 
PC128S. Una guida 
all’uso indipendente e 
completa. 

Abb. annuo 6 numeri 
lire 20.000 

anziché lire^SMHNCT 


H AUTOMOBILE 
QUARTERLY 

Il trimestrale più 
prestigioso e raffinato 
del mondo, dedicato 
all’auto, alla sua storia, 
ai suoi miti. 

Abb. annuo 4 numeri 
nella versione lusso, con 
copertina rigida, 
lire 69.500 





E PIU COMODO 


R/ TUTTE 
FE JACKSON. 



— Mirimi 



AUTOMAZIONE 

OGGI 

Robotica, controllo 
numerico, CAD/CAM, 
sistemi flessibili... 
problemi e soluzioni per 
la nuova automazione 
industriale. 

Abb. annuo 20 numeri 
lire 78.000 

anziché lirjj50=6§flC^ 



Osassi 


BIT 

La prima rivista europea, 
la più famosa e 
autorevole in Italia, di 
personal, home, 
business computer, 
software e accessori. 

Abb. annuo 11 numeri 
lire 43.000 

anziché linDKHtfìir^ 



LA RIVISTA 
DI ATARI 

La prima e unica rivista 
per gli utenti italiani dei 
sistemi Atari. 

Abb. annuo 6 numeri 
lire 24.000 
anziché lix^3frfl(fi) 



TRASMISSIONE 
DATI E TELE- 
COMUNICAZIONI 

Il mensile dei sistemi e 
servizi di comunicazione, 
trasmissione dati e 
telematica. In 
collaborazione con Data 
Communications. 

Abb. annuo 11 numeri 
lire 44.000 
anziché lirjDBHHHL 


COMPUTER 
GRAFICA & 
APPLICAZK 


La rivista della * — 
dell’immagine con il 
computer: applicazioi 
pratiche per l’industr 
le professioni e i servizi 
Dal CAD/CAM alla 


pubblicità. 

Abb. annuo 6 numeri 
lire 30.000 , 
anziché lirej 


COMPUSCUOLA 

L’informatica nella 
didattica: problemi 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 10 numeri 
lire 32.000 ^ 

anziché lire 4^00^ 



VIDEOTEL 

MAGAZINE 

La rivista dei nuovi 
servizi interattivi 
telematici: applicazioni, 
fornitori di informazione, 
utilizzo. 

Abb. annuo 6 numeri 
lire 20.000 

anziché lirO^HHflf” 


r 


LA TUA 
RIVISTA 




■MSUPER 
■COMMODORE 
■ 64 & 128 

■La prima rivista con 

I cassetta o disco, dei 
programmi dedicati agli 

I utenti home computer 
Commodore 64 e 128. 

I Abb. annuo 11 numeri 
(con cassettaJLhre66JOOO 
janzichè lir ejèffiQ 

J 



FARE 

ELETTRONICA 

La rivista per l’hobbista 
elettronico, il 
radioamatore, il 
riparatore radio-TV 
l’hardware dei personal 
computer. 

Abb. annuo 12 numeri 
lire 39.000 

anziché lireJÌ&?0Qlj^ 


'4 










ABBONARS 

RISPJ 

é TROVI L 


I PRIVILEGI RISERVATI LE TARIFFE DI ABBONAMENTO 

AGLI ABBONATI JACKSON JACKSON 1987*1988 


gelida monografica Jackson. 

L’agenda a scansione settimanale 
Jackson, oltre a riprendere la prestigiosa linea 
editoriale di Nautical Quarterly e Automobile 
Quarterly, ha carattere monografico e 
nell’edizione '88, è dedicata alla fabbricazione 
di un chip, con splendide immagini a colori. 

[/edizione 1988 sarà inviata soltanto a coloro 
che risulteranno regolarmente abbonati aj 30 
novembre 1987 ad almeno una rivista fa cui, tariffa 

d[ abbonamento sia superiore a /ire 30.000 

Naturalmente chi sottoscriverà o rinnoverà 
l’abbonamento dopo tale data, acquisirà il diritto 
a ricevere automaticamente l’edizione '89. 

L’agenda Jackson 1988 sarà posta in 
vendita anche in edicola. 



O isparmie assicurato. 

Gli abbonati òlle riviste Jackson 
possono contare su un duplice risparmio: una 
tariffa privilegiata, come indicato nella tabella e 
la garanzia del prezzo bloccato per l’intera 
durata del proprio abbonamento. 

conto 20% sui libri Jackson. 

E questo un altro privilegio riservato 
agli abbonati Jackson: lo sconto del 20% su tutti 
i libri del catalogo Jackson, per acquisti effettuati 
fino al 29/2/1988 direttamente dall’editore. 

Dopo tale data, e per tutta la durata 
dell’abbonamento, tale sconto sarà del 10%. 



fferte speciali e riservate. 

Nel corso dell’anno, periodicamente, 
saranno inviate alcune offerte speciali, che il 
Gruppo Editoriale Jackson riserverà ai soli 
abbonati. Tali offerte consentiranno l’acquisto di 




RIVISTA 

NUMERI 

ANNUI 

TARIFFE 

ABBONAMENTO 

PROFESSIONALI 

Industria oggi 

10 

L 4 1.00o\ anziché L.1 50.000 1 

Elettronica oggi 

20 

L. 79.000 anziché Li 100.000 

EO News Settimanale 

40 

L 79.500 \ / 

Automazione Oggi 

20 

L 78.000 anziché il 100.000 

Trasmissione dati e Telecomun. 

11 

L 44.000 artzichèL 55.000 


Videotel Magazine 

6 

L 20.000 anziché L 24.000 

Informatica Oggi 

11 

L 40.000 aniichèfL 49.500 

Informatica Oggi Settimanale 

40 

L 80.000 \ / 

Computergrafica & Applicazioni 

6 

L 30.000 anzlpt]e L. 36.000 | 

PERSONAL 

PC World Magazine 

11 

L. 44.000 anziòhè L. 55.000 

PC W.Magazine + PC Floppy 

11 

L 105.000 anzidhè L 132.000 1 

BIT 

11 

L 43.000 anziché L 55.000 

Supercom. 64 & 128 (cassetta) 

11 

L. 66.000 anztó L. 82.500 

E HOME 

Noi 128 & 64 (cassetta) 

11. 

L. 70.000 anJchÀ L 99.000 

COMPUTER 

Noi 128 & 64 (disco) 

11 

L 115.000 arrochì L. 143.000 1 


Commodore Professional 

10 

L. 48.000 anziché 60.000 

Olivetti Prodest User 

6 

L 20.000 arizichè 24.00oJ 

La rivista di Atari 

6 

L. 24.000 anziché li 30.0001 

Compuscuola 

10 

L 32.000 anziché l\ 40.000 | 

HOBBY E 

Fare Elettronica 

12 

L 39.000 Anziché L.\48.000 1 

TEMPO LIBERO 

Strumenti Musicali 

11 

L. 35.000 (anziché L. ^4.000 | 

CULTURA 

Nautical Quarterly 

4 

L 70.000/ anziché L. f-p.000 1 

Automobile Quarterly 
(solo nella versione lusso, 
con copertina rigida) 

4 

L 69.500 j 

E PRESTIGIO 



N.B. Per abbonamenti all’estero le tariffe dovranno essere raddoppiate. 
Non è prevista la spedizione via aerea. 


selezioni di libri, grandi opere e software, a 
condizioni particolarissime. 

bbonarsi è facile! 

Utilizzate il modulo di conto corrente 
postale già predisposto e/o la speciale "busta- 
abbonamenti" inseriti in questa rivista. 




I E PIU FACILE 


IRMI 

A FORTUNA. 


I FANTASTICI PREMI 
JACKSON 



DEL CONCORSO 


1 - Il Gruppo Editoriale Jackson S.p.A. pro- 
muove un concorso a premi in occasione 
della Campagna Abbonamenti 87/88. 2 - 
Per partecipare è sufficiente sottoscrivere, 
entro il 31.3.1988, un abbonamento a una 
delle 21 riviste Jackson. 3 - Sono previsti 
304 premi da sorteggiare fra tutti gli abbo- 
nati. 4 - 1 ° premio,» un’automobile Volvo 
480 ES (1721 cc.). Gli altri 303 premi consi- 
stono in 3 personal computer professionali 
Honeywell Bull e in 300 telefoni. 5 - Gli ab- 
bonati a più di una rivista avranno diritto, per 
l’estrazione, aN’inserimento del proprio 
nominativo tante volte quante sono le 
testate sottoscritte. 6 - L’estrazione 
dei 304 premi 


in palio avverrà presso la Sede della Jack- 
son entro il 30.5.1988. 7 - L’elenco dei vin- 
citori, ad estrazione avvenuta, sarà pubbli- 
cato su almeno 10 delle riviste Jackson. La 
vincita inoltre, sarà comunicata con lettera 
raccomandata a ciascuno dei sorteggiati. 
8 - I premi verranno messi a disposizione 
degli aventi diritto entro 30 giorni dalla data 
dell’estrazione. 9 - Le spese di immatrico- 
lazione della Volvo 480 ES, nonché l’even- 
tuale controllo di manutenzione extragaran- 
zia per i personal computer Honeywell Bull, 
saranno a carico dei rispettivi vincitori. IO - 
I dipendenti, i familiari, i collaboratori del 
Gruppo Editoriale Jackson sono esclusi dal 
concorso. 


straordinaria Volvo 480 ES. 

Linea morbida, filante, tentatrice: 1721 generosi cc, una 
perfetta tenuta di strada. Neppure l’aria le resiste! 

3 favolosi Personal Computer 
professionali della 
Honeywell Bull. 

I personal computer della J 
nuovissima generazione, 
annunciati per la prima 
volta in occasione dello 
SMAU 87. 


*2 
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& 
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300 simpatici telefoni rossi. 

Realizzati appositamente per i vincitori del concorso 
Jackson, superleggeri, a tastiera, dotati della 

^funzione di chiamata automatica. 



LATI 






J\ 

cA'ì 


RIVISTA. 


AUT. MIN. RICH. 







di R.Trulock 

trad. ed adatt. di S.Colombo 


Qualche tempo fa abbiamo pub- 
blicato "Directory Filar", una uti- 
lity che permette di cancellare, 
bloccare e sbloccare file, sposta- 
re nomi di file all'Interno della di- 
rectory, ed Inserire del separato- 
ri per delimitare I gruppi di file. 

Questa nuova e migliorata versio- 
ne possiede anche un comando 
per cambiare II nome al file, uno 
schermo di help, ed una routine 
per la stampa formattata della di- 
rectory. E' richiesto l'utilizzo del 
disk drive. 

I comandi per il disco disponibili nel BA- 
SIC del C64 sono alquanto criptici e sco- 
modi da utilizzare. Per cambiare il nome 
ad un file, ad esempio, occorre aprire il 
canale logico 15, inviare su questo cana- 
le il comando R: con la sua corretta sin- 
tassi, quindi chiudere il canale 15 e... 
sperare che tutto sia andato per il verso 
giustol 

Proprio per questo proponiamo Dire- 
ctory Filer Plus, un utilissimo programma 
per riorganizzare il contenuto delle dire- 
ctory dei nostri dischi. 

Come funziona 

Dopo aver dato il RUN al programma, vie- 
ne richiesto di inserire nel drive il disco 
da analizzare e premere RETURN. E'pos- 
sibile uscire dal programma in qualsiasi 
momento attraverso la pressione di 
RUN/STOP. 


Il programma legge la directory del disco 
e visualizza i primi 40 nomi di file, con il 
primo di essi evidenziato da una barra di 
colore blu. 

Utilizzando i tasti cursore, è possibile 
muovere la barra per evidenziare diversi 
nomi di file, mentre la pressione del ta- 
sto HOME riporta sul primo file della 
lista. 

Se il disco contiene più di 40 file, preme- 
te il tasto N per visualizzare i successivi, 
e quindi P per visualizzare nuovamente 
lo schermo iniziale contenente i primi 40 
file. 

Dopo aver effettuato sulla directory tutte 


le modifiche desiderate, dovrete preme- 
re FI per fare in modo che tali modifiche 
vengano effettivamente scritte su disco. 

I comandi disponibili 

* Look 

Per bloccare un file, premete il tasto < 
dopo avere evidenziato il file attraverso i 
tasti cursore. Il carattere < comparirà di 
fianco al nome del file, per indicare che 
tale file è bloccato. Un file bloccato non 
può essere cancellato da disco con il nor- 
male comando SCRATCH. 


36 SUPERCOMMODORE C648128 10/87 


Con procedimento analogo è possibile 
sbloccare un file su disco che risulti bloc- 
cato. 

* Dolete 

Per cancellare un file, evidenziatelo e 
premete quindi la barra spaziatrice. Il pro- 
gramma, dopo aver chiesto conferma, 
provvede a cancellare il file. Il comando 
DELETE di Directory Filer Plus agisce an- 
che sui file bloccati. 

* Separatore 

Per inserire un separatore tra i file in un 
punto qualsiasi della directory, premete 
iltasto-.llprogrammainseriràautomatica- 
mente una riga separatrice orizzontale in 


corrispondenza del punto desiderato. 

* Muovi 

Per muovere un nome di file da una posi- 
zione ad un'altra aH'interno della dire- 
ctory, premete RETURN. Muovete quin- 
di il cursore sulla posizione di destinazio- 
ne, e premete ancora il tasto RETURN. Il 
file verrà inserito sopra la selezione cor- 
rentemente mostrata dalla barra blu. 


* Scrittura directory 

Premete FI per scrivere effettivamente 
sul disco le modifiche operate; se non si 
utilizza questo comando, nessuna delle 
modifiche effettuate sulla directory verrà 


effettivamente scritta sul disco nel drive. 

* Help 

Il tasto F7 visualizza un menu di aiuto 
con tutti i comandi del programma. 

* Renarne 

Per cambiare nome a un file, selezionate- 
lo con la barra blu e premete R. Dopo 
avervi chiesto di inserire il nuovo nome 
da assegnare al file, il programma proce- 
derà nella sostituzione del nome. 

* Stampa 

Premendo F3 si ottiene una stampa for- 
mattata della directory. 


Directory Filer Plus 

1 0 N$=" ZZ " : POKE5 32 81,0: POKE5 32 80,0: NR=2 1 4 



:NC=211:KB=198 :POKE808,225 

: rem 

85 

15 

GOSUB2000 

: rem 

168 

20 

GOTO470 

: rem 

54 

30 

POKENR, 1 : PRINT :PRINT" {CYN } SEI 

SICURO 


{ 2 SPAZI}? (S/N)" 

: rem 

22 

40 

POKEKB, 0 

: rem 

124 

50 

GETK$ : IFK$=""THEN50 

:rem 

1 

60 

POKEKB, 0: RETURN 

: rem 

152 

70 

GOSUB100 : POKENR, 1 : PRINT : PRINT 

"(CYN) 

★ ★ * 


ATTENDERE**** { 4 SPAZI }": RETURN 




: rem 

43 

80 

POKENR, 1 : PRINT" { CYN } " : PRINTMID$ (M$, 

4,1 


6) : RETURN 

: rem 

210 

90 

M$=" " : POKENR, 1 : PRINT : PRINT" 

{ 30 SPAZI } " :GOSUB120 :RETURN 

: rem 

250 

100 

POKENR, RL+2 : PRINT : PRINTTAB (CL*2 0 ) ; 

II 


{YEL} "ìlID$ (N$ (RL+ (1+1) *CL+D- 

1) ,4,16) 



: rem 

191 

110 

RETURN 

: rem 

114 

120 

POKENR, R+2 : PRINT : PRINTTAB (C* 

20) 



{CYN} { RVS } " ;MID$ (N$ (R+ ( 1+1 ) *C+D-1) 

,4, 


16) 

: rem 

223 

130 

RETURN 

: rem 

116 

140 

PRINT" {CLR} {YEL}"HE$; 

: rem 

131 

150 

IFD>lTHENPOKENC, 21: PRINT" P 

* SCHERMO 


PREC . " 

: rem 

87 

160 

IFD«<N-40THENPOKENC, 21: PRINT 

" N - 

SCH 


ERMO SUCC." 

: rem 

67 

170 

I=INT ( (N-D-l) /2+ .5) : IFI>19THENI=19 



: rem 

144 

180 

GOSUB80 : POKENR, 3 : PRINT" { YEL } 

« 




: rem 

146 

190 

FORX=DTOD+I 

: rem 

181 

200 

PRINTMIDS (N$ (X) ,4,16)","; 

: rem 

39 

210 

PRINTTS (ASC (N$ (X) )ANDNOT248) 

* 




: rem 

201 

220 

IF (ASC (N$ (X) ) AND64) =64THENPRINT"<" 

/ 



: rem 

18 


230 IFASC (N$ (X+I+l) +CHR$ (0) )=0THEN280 




: rem 

26 

240 

PRINTTAB (20) ;MID$ (N$ (X+I+l) , 

4,16) 

it ii . 
f t 



: rem 

192 

250 

PRINTTS (ASC (N$ (X+I+l) ) ANDNOT248) ; 




: rem 

157 

260 

IF (ASC (N$ (X+I+l) ) AND64) =64THENPRINT"< 


Il . 

/ 

: rem 

230 

270 

PRINT 

: rem 

38 

280 

NEXT : IFR>I+1THENR=I+1 

: rem 

58 

285 

IFR<1THENR=1 

: rem 

220 

290 

GOSUB120: RETURN 

: rem 

200 

300 

GOSUB4 0 : CL=C : RL=R 

: rem 

39 

310 

IFK$=CHR$ (13) ORK$=" {FI } "ORK$ 

="-"ORK$= 


" , "ORK$=" "ORK$=" {C} "THENRETURN 




: rem 

74 

313 

IFK$="R"THENRETURN 

: rem 

119 

315 

IFK$=" {F7 } "THENRETURN 

: rem 

175 

317 

IFK$=" { F3 } "THENRETURN 

: rem 

175 

320 

IFK$=" { HOME } "THENR=1 :C=0 

: rem 

0 

330 

IFK$=" {DES } "ORK$=" { SIN } "THENC=NOTCAND 


1 

: rem 

71 

340 

IFK$=" {GIU' } "ORK$=" {SU} "THENR= (R+l+2* 


(K$>" {GIU 1 }") ) 

: rem 

224 

350 

IFC>N-1THENR=1 :C=0 

: rem 

45 

360 

IFR>I+1THENR=1 

: rem 

76 

370 

IFR<1THENR=I+1 

: rem 

75 

380 

IFN$ (R+ (1+1) *C+D-1) =""THEN330 




: rem 

224 

390 

IF (CLOC) OR (RLOR) THENGOSUB100 rGOSUBl 


20 

: rem 

177 

400 

IFK$="P"ANDD>lTHEND=D-40 :GOSUB140 




: rem 

189 

410 

IFK$="N"ANDD=<N-40THEND=D+40 

: GOSUB140 



: rem 

163 

420 

GOTO300 

: rem 

98 

430 

POKENR, 7: PRINT: PRINT" {DES} { 

3 SPAZI} 


{YEL} SEI SICURO { 2 SPAZI}? (S/N) 



{ 4 SPAZI} {DES}" 

: rem 

137 

440 

GOSUB40 : IFK$="S"THEN1440 

: rem 

128 
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450 

IFK$=" {C } "THEN440 : rem 

226 



: rem 

52 

460 

RETURN : rem 

122 

780 

NEXT 

: rem 

222 

470 

PRINT" {CLR} {GIU' } {CYN} {2 } { 26 SH 

*} 

790 

IFST=0THEN730 

: rem 

12 


{ 1 SH 1} : rem 

171 

800 

PRINT" {SU} {DES} { 4 SPAZI}TOTALE DATI 

480 

PRINT" { 1 SH BH 5 SPAZI }{YEL}DIRECTO 


{ 3 SPAZI }={ 8 DES}" 

: rem 

39 


RY FILER{CYN}{ 6 SPAZI} { 1 SH B}" 


810 

FORX=lTO1500 :NEXT 

: rem 

40 


: rem 

85 

820 

CLOSE1 

: rem 

65 

490 

PRINT" { 1 SH B}{ 26 SPAZI}} 1 SH 

B } " 

825 

IFN=0THENPRINT" {CLR} " :GOTO1410 



: rem 

242 



: rem 

181 

500 

PRINT"} 1 SH B} }YEL} INSERIRE DISCO N 

830 

M$=" " :GOSUB140 

: rem 

220 


EL DRIVE {CYN} { 1 SH B}" : rem 

83 

840 

GOSUB300 :F=R+ (1+1) *C+D-1 

: rem 

25 

510 

PRINT"} 1 SH B}( 26 SH *}{ 26 SH 

*} 

850 

IFK$="-"THEN990 

: rem 

26 


: rem 

90 

860 

IFK$=" "ANDN>1THEN1040 

: rem 

161 

520 

F0RX=1T06:N$=N$+N$:NEXT : rem 

142 

870 

IFK$=", "THEN1120 

: rem 

61 

530 

N$=MID$(N$,2) :N$=N$+N$ : rem 

94 

875 

IFK$="R"THEN1 600 

: rem 

107 

540 

F0RX=828T0861 : rem 

249 

880 

IFK$=" }C } "THEN1190 

: rem 

28 

550 

READY : POKEX, Y : NEXT : rem 

206 

890 

IFK$=" { FI } "THEN1230 

: rem 

154 

560 

FORX=lTO30 : Z$=Z$+CHR$ (0) :NEXT 


895 

IFK$=" }F3 } "THEN1700 

: rem 

162 


: rem 

231 

897 

IFK$=" { F7 } " THENGOSUB2 000: 

GOSUB140 

: GOT 

570 

DIMN$ (144) , S (18) , T$ ( 4) :D=1:N=0:F= 

0 : B= 


0840 

: rem 

126 


1:R=1:C=0 : rem 

208 

900 

M$=N$ (F) :GOSUB80 

: rem 

114 

575 

DIMB% (144) : rem 

204 

910 

GOSUB300 :T=R+ (1+1) *C+D-1 

: rem 

37 

580 

FORX=0 TO 1 7 : READ Y : S ( X ) =Y : NEXT : rem 

72 

920 

IFF=T-lORF=TTHENGOSUB90 :GOTO840 


590 

T$ (1) ="S" :T$ (2) ="P" :T$ (3) ="U" : T$ ( 4 ) =" 



: rem 

254 


R" : rem 

136 

930 

GOSUB70 

: rem 

131 

600 

LN$=CHR$ (130) +CHR$ ( 1 8 ) +CHR$ ( 1 8 ) + " 

— 

940 

IFF>TTHENV=-1 

: rem 

36 



89 

950 

IFF<TTHENV=1 : T=T-1 

: rem 

115 


— T-ijrjr i p v ^ v / j- -i- / : rem 

610 

PRINT" }GIU' } }GIU' } { 26 SH * } { 1 SH 1} 

960 

N$ (F) =N$ (F+V) :F=F+V: IFFOTTHEN960 



: rem 

151 



: rem 

158 

620 

PRINT"} 1 SH B} }YEL} }RVS} RETURN {OFF} 

970 

N$(T)=M$ 

: rem 

101 


PER CONTINUARE} 3 SPAZI} {CYN} 


980 

GOTO830 

: rem 

117 


{ 1 SH B}" : rem 

141 

990 

IFN<144THEN997 

: rem 

44 

630 

PRINT"} 1 SH B}{ 26 SH *}( 26 SH 

*}" 

995 

POKENR, 1 : PRINT : PRINT" { CYN } TROPPI 

FILE 


: rem 

127 


! { 2 SPAZI}" :FORX=1T02000 

:NEXT:GOSUB9 

640 

GOSUB40 : IFK$=" }C } "THENGOSUB430 



0 :GOTO840 

: rem 

90 


: rem 

128 

997 

GOSUB7 0 : B=0 

: rem 

121 

650 

POKENR, 7 SPRINT SPRINT" {DES }{ 4 SPAZI} 

1000 

N=N+1 :FORX=NTOF+lSTEP-l 

: rem 

217 


}YEL} LETTURA NOME DISCO} 4 SPAZI} 


1010 

N$ (X) =N$ (X-l ) :NEXT 

: rem 

12 


}DES } " : rem 

57 

1020 

N$ (F) =LN$ 

: rem 

199 

660 

OPEN15, 8, 15, "10" :0PEN1, 8,3, "$" 


1030 

GOTO830 

: rem 

152 


: rem 

7 

1040 

GOSUB30 : IFK$O"S"THENG0SUB90 : GOTO840 

670 

SYS828 : INPUT#15, EN$, EM$ : IFEN$="00 

"THE 



: rem 

24 


N710 :rem 

126 

1050 

GOSUB70 : B=0 

: rem 

150 

680 

POKENR, 7 : PRINT : rem 

151 

1060 

N=N-1 :FORX=FTON 

: rem 

235 

690 

PRINT" }DES}} 3 SPAZI} }YEL} ERRORE 

LETT 

1070 

N$ (X) =N$ (X+l) : NEXT 

: rem 

16 


URA{ 2 SPAZI}# " EN $ " { 2 SPAZI} }DES}" 

1080 

N$ (N+l ) =" " 

: rem 

183 


: rem 

86 

1090 

IFN<C+1THENC=0 

: rem 

97 

700 

PRINT :GOTO1480 : rem 

100 

1100 

IFF=N+1THENR=R+ (R>1) 

: rem 

203 

710 

HE$=MID$ (N$, 143,16) +", "+MID$ (N$, 161, 2 

1105 

IFD>NTHEND=D-40 

: rem 

171 


) : rem 

71 

1110 

GOTO830 

: rem 

151 

720 

POKENR, 3: PRINT: PRINT" }DES } { 3 SPAZI} 

1120 

A=ASC(N$ (F) ) 

: rem 

115 


"HE$" { 4 SPAZI} }DES}" : rem 

200 

1130 

IFA=130THENA=1 94 :GOTO1150 : rem 

235 

730 

POKENR, 7: PRINT: PRINT" }DES} } 4 SPAZI} 

1140 

IFA=1 94THENA=130 

: rem 

178 


LETTURA DATO} 2 SPAZI }#"N"{ 2 SPAZI} 

1150 

N$ (F) =CHR$ (A) +RIGHTS (N$ (F) , 29) 



{ 2 DES}" : rem 

243 



: rem 

94 

740 

SYS828 : F0RX=1T0254STEP32 : Y=ASC (MID$ (N 

1160 

POKENR, RL+2 : PRINT : PRINTTAB (CL*2 0+18 ) 


$,X, 1) ) AND127 : rem 

9 


t 

: rem 

94 

750 

IFY=0THEN770 : rem 

190 

1170 

PRINT" }YEL}"CHR$ (-60* (A= 

194) ) ; CHR$ (- 

760 

N=N+1 :N$ (N) =MID$ (N$, X, 30) : rem 

46 


32* (A=130 ) ) 

: rem 

96 

770 

POKENR, 7 : PRINT : POKENC, 20 : PRINTN 


1180 

GOTO840 

: rem 

159 
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1190 

GOSUB100 

: rem 

220 

1200 

GOSUB30 : IFK$="S"THEN1410 

: rem 

167 

1210 

IFK$=" (C) "THEN1200 

: rem 

56 

1220 

GOSUB90 :GOTO840 

: rem 

189 

1230 

GOSUB100 :GOSUB30 : IFK$<>"S" 

THENGOSUB9 


0 :GOTO840 

: rem 

100 

1240 

POKENR, 1 : PRINT : PRINT" (CYN } SCRIVO 



{ 2 SPAZI }DIRECTORY{ 2 SPAZI)" 




: rem 

239 

1250 

IFN/8=INT (N/8) THEN1270 

: rem 

51 

1260 

N=N+1 :N$ (N) =Z$ :GOTO1250 

: rem 

63 

1270 

S=0 : T=18 :S (N/8+.5)=255 :N=1 

:OPEN2 

,8,2 


, "#" 

: rem 

161 

1280 

IFS (S+l) =255THENT=0 

: rem 

118 

1290 

PRINT#15, "B-P" ; 2 ; 0 

: rem 

233 

1300 

PRINT #2 , CHR$ (T) ;CHR$(S(S+1) ) ; :P= 

2 



: rem 

140 

1310 

FORX=NTON+7 :PRINT#15, "B-P" 

; 2 ; P 




: rem 

89 

1320 

PRINT#2,N$ (X) ; :P=P+32:NEXT 

: N=X 




: rem 

103 

1330 

PRINT# 15, "U2" ; 2 ; 0 ; 18 ; S (S) : 

INPUT#15, E 


N$,EM$ : IFEN$="00"THEN137 0 

: rem 

245 

1340 

POKENR, 1: PRINT 

: rem 

187 

1350 

PRINT" (CYN) ERRORE SCRITTURA # " 

EN$ 



: rem 

163 

1360 

FORT=lTO2000 :NEXT :GOTO1440 

: rem 

141 

1370 

S=S+1 : IFS (S) O255G0T01280 

: rem 

228 

1380 

IFBTHEN1410 

: rem 

146 

1390 

PRINT#2 , CHR$ (0) ;CHR$ (255) ; 

Z$ : PRINT#1 


5, "U2 " ; 2 ; 0 ; 1 8 ; 1 8 

: rem 

166 

1400 

POKENR, 1 : PRINT : PRINT" (CYN ) VALIDAZION 


E BAM { 3 SPAZI}" :PRINT#15, 

"V0" 




: rem 

174 


1410 CLOSE2 : PRINT#15, "IO" :CLOSE15 

: rem 189 

1420 POKENR, 1 : PRINT : PRINT" {CYN}UN ALTRO D 



ISCO ?{ 3 SPAZI}" 

: rem 

58 

1430 

GOSUB40 : IFK$="S"THENRUN 

: rem 

220 

1440 

PRINT" (CLR) " : POKENR, 7 : PRINT : rem 

96 

1450 

PRINT" (CYN }( CYN) ( 26 SH * 

X 1 SH 

I}” 



: rem 

88 

1460 

PRINT" { 1 SH B}{ 4 SPAZI }(YEL) FINE O 


PERAZIONI { 7 SPAZI ) (CYN) { 

1 SH B} 

it 



: rem 

127 

1470 

PRINT" { 1 SH B]| 26 SH *} 

{ 26 SH 

M" 



: rem 

178 

1480 

CLOSE1 :CLOSE2 :CLOSE15 

: rem 

108 

1490 

SYS65418 

: rem 

213 

1495 

END 

: rem 

170 


1500 DATA 160,2,177,45,153,137,0,200,192, 
6,208,246,162 :rem 88 

1510 DATA 1,32,198,255,32,228,255,164,142 
,145, 140,200 : rem 41 

1520 DATA 132,142,196,139,208,242,76,204, 
255 :rem 125 

1530 DATA 1,4,7,10,13,16,2,5,8,11,14,17,3 
,6,9,12,15,18 :rem 57 

1600 NN$=" " : POKENR, 1 : PRINT : INPUT " { CYN } NUO 
VO NOME " ;NN$ : GOSUB90 : IFNN$=""THEN83 


0 :rem 154 

1610 NN$=LEFT$ (NN$, 16) :GOSUB70 : rem 217 
1620 IFLEN (NN$) <16 THEN NN$=NN$+CHR$ (160) 
:GOTO1620 : rem 39 

1630 DU=0 : FORX=lTON : IFNN$=MID$ (N$ (X) , 4, 16 
) THENDU=1 : X=N : rem 30 

1640 NEXT : IFDU=0THEN1670 : rem 214 

1650 POKENR, 1: PRINT: PRINT" (CYN) NOME COPIA 
{ 5 SPAZI ) "NN$ : FORX=lTO2000 :NEXT : GOT 
0830 :rem 151 

1670 M$=N$(F) :N$ (F) =LEFT$ (M$, 3) +NN5+RIGHT 
$ (M$,LEN(M$) -19) :GOTO830 :rem 97 
1700 POKENR, 1: PRINT: PRINT" (CYN) ACCENDI LA 
STAMPANTE, POI RETURN" : rem 122 
1710 GOSUB40 : IFK$=" { C ) " THENGOSUB 9 0 : GOTO 8 4 
0 :rem 144 

1715 IFK$OCHR$ (13) THEN1710 :rem 244 

1720 GOSUB90 :OPEN4, 4 : IFSTO0THEN1700 

: rem 196 

1730 POKENR, 1: PRINT: PRINT" (CYN) ALLINEA LA 
CARTA, POI RETURN" : rem 74 

1740 GOSUB40 : IFK$=" (C) "THEN1790 : rem 108 
1745 IFK$OCHR$ (13) THEN1740 : rem 250 

1750 GOSUB90 : GOSUB7 0 : B% (0) =664 :F0RX=1T0N 

:rem 174 

1752 B% (X) =ASC (MID$ (N$ (X) , 30, 1) ) *256+ASC ( 
MID$ (N$ (X) ,29, 1) ) :B% (0) =B% (0) -B% (X) 

:rem 150 

1754 NEXT :PRINT#4, CHR$ (15) ;CHR$ (145) ;HE$; 
" ";N;"FILE";B% (0) ; "LIBERI" : PRINT#4 

: rem 67 

17 60 FORX=lTO30:X$="":FORY=lTO4 : rem 119 
1765 W= (Y-l) *30+X: IFW>NTHEN1780 : rem 42 
1767 W$=STR$ (B% (W) ) : W$=RIGHT$ (W$, LEN (W$) - 



i) 

: rem 

159 

1769 

IFLEN (W$) <4THENW$=W$+" 

" :G0T01769 




: rem 

156 

1770 

X$=X$+W$+MID$ (N$ (W) , 4, 

16) :rem 

49 

1780 

NEXTY : PRINT#4 , X$ : NEXTX 

: PRINT#4 




: rem 

29 

1790 

CLOSE4 :GOSUB90 :GOTO840 

: rem 

173 

2000 

PRINT" (CLR) (CYN)"; 

: rem 

0 

2010 

PRINT" { 36 SH *}{ 1 

SH I)" 




: rem 

50 


2020 PRINT" ( 1 SH B)| 6 SPAZI ) (YEL)DIREC 
TORY F I LER : COMAND I (CYN){ 6 SPAZI) 

{ 1 SH B) " :GOSUB4010 :rem 49 

2040 PRINT" { 1 SH B)| 3 SPAZI)(YEL)N 
( 5 SPAZI) SCHERMO SUCCESSIVO 
{ 2 SPAZI) (CYN)( 7 SPAZI }{ 1 SH B}" 

: rem 190 

2050 PRINT" ( 1 SH B}{ 3 SPAZI } (YEL)P 
{ 5 SPAZI) SCHERMO PRECEDENTE 
( 6 SPAZI) (CYN) { 3 SPAZI) ( 1 SH B)": 
GOSUB4010 : rem 24 

2060 PRINT" { 1 SH B){ 3 SPAZI) (YEL)- 
{ 5 SPAZI) INSERIMENTO SEPARATORE 
{ 3 SPAZI }(CYN}( 2 SPAZI ) { 1 SH B}" 

: rem 202 

2070 PRINT" { 1 SH B){ 3 SPAZI) (YEL)R 
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PAGINE E PAGINE 
DI INFORMAZIONI, 
SPUNTI, APPLICAZIONI, 
TUTTE A COLORI. m 

Computer Grafica & Applicazioni è il 
punto di riferimento per tutti coloro che 
si occupano di immagine, sia dal punto 
di vista tecnico che aa quello creativo, 
fornendo informazioni, spunti, applica- 
zioni. Il campo di interesse di Computer 
Grafica & Applicazioni è nel suo com- 
plesso il mondo della grafica e dell'im- 
magine realizzata con il computer, dal 
semplice personal al più sofisticato 
mainframe. Sempre diviso tra parte teo- 
rica e parte pratica, ogni sezione della ri- 
vista propone una visione completa e 
professionale degli argomenti, con l'in- 
tenzione di fornire al lettore non solo 
l'informazione, ma anche gli strumenti 
per avvicinarsi alla grafica col computer. 

IL PRIMO NUMERO 
È IN EDICOLA. 



GRUPPO EDITORIALE 

JACKSON 


{ 5 SPAZI }RENAME DI FILE { 2 SPAZI} 

{ CYN } { 11 SPAZI}} 1 SH B}" : rem 18 
2075 PRINT" { 1 SH B}{ 3 SPAZI} {YEL}, 

{ 5 SPAZI }LOCK/UNLOCK DI FILE 
{ 2 SPAZI} {CYN} { 6 SPAZI} { 1 SH B}": 
GOSUB4010 : rem 220 

2080 PRINT" { 1 SH B} {YEL}<CRSR> 

{ 2 SPAZI} MUOVE CURSORE {CYN} 

{ 14 SPAZI }{ 1 SH B}" : rem 191 

2090 PRINT" { 1 SH B) { YEL } <HOME> 

{ 2 SPAZI }CURSORE IN ALTO { 3 SPAZI} 
{CYN} { 9 SPAZI }{ 1 SH B}" : rem 234 

3000 PRINT" { 1 SH B} {YEL}<STOP> 

{ 2 SPAZI} ESCE DA DIRECTORY 
{ 6 SPAZI} {CYN} { 4 SPAZI} { 1 SH B}": 

GOSUB4010 : rem 238 

3020 PRINT" { 1 SH B) { YEL}<RETN> 

{ 2 SPAZI }FILE PRECEDENTE 
{ 11 SPAZI} {CYN} { 1 SH B}":GOSUB401 
0 :rem 136 

3030 PRINT" { 1 SH B) { YEL } <SPAZIO> CANCE 
LLA FILE { 2 SPAZI} {CYN} { 11 SPAZI} 

{ 1 SH B } " : GOSUB4010 : rem 122 

3035 PRINT" { 1 SH B} {YEL}<F1> 

{ 4 SPAZI} RISCRIVE DIRECTORY 
{ 3 SPAZI} {CYN} { 6 SPAZI} { 1 SH B}" 

:rem 106 

3040 PRINT" | 1 SH B} {YEL}<F3> 

{ 4 SPAZI} STAMPA DIRECTORY 
{ 9 SPAZI} {CYN} { 2 SPAZI} { 1 SH B}" 

: rem 199 

3043 PRINT" { 1 SH B) { YEL} {RVS }<F7> 

{ 4 SPAZI }MOSTRA QUESTO SCHERMO 
{ 5 SPAZI} {OFF} {CYN} { 1 SH B}":GOSU 
B4010 :rem 62 


3045 PRINT" { 1 SH B}{ 7 SPAZI } {YEL} {RVS } 
RETURN {OFF} PER CONTINUARE 
{ 3 SPAZI} {CYN} { 5 SPAZI} { 1 SH B}" 




: rem 

193 

3050 

PRINT” 

{ 36 SH *}{ 36 SH *}” 




: rem 

46 

3090 

GOSUB40 : 

IFK$OCHR$ (13) THEN3090 




: rem 

19 

4000 

RETURN 

: rem 

164 

4010 

PRINT” { 

1 SH B)1 36 SPAZI} { 1 SH 

B} 


: RETURN 

: rem 

52 



I Compilate e spedite in busta chiusa a: 

Gruppo Editoriale Jackson 

I Ufficio Abbonamenti Via Rosellini 12 
20124 MILANO 

□ Desidero sottoscrivere un abbonamento a 

I Computer Grafica & Applicazioni 
(4 numeri L 19.000 anziché 
Per il pagamento □ Allego assegno n° 

| di I Banca 

I D Ho effettuato versamento di L 

sul c/c postale n. 11666203 intestato a Gruppo 

I Editoriale Jackson Milano 

e allego fotocopia della ricevuta. 

NOME 

| COGNOME 

INDIRIZZO 

| CAP CITTÀ 



PROV.. 


Piccola guida 
per l'input 
dei programmi 


I programmi in BASIC listati su SUPER- 
COMMODORE contengono una particola- 
re codifica dei caratteri di controllo (cursore, 
colore, reverse, eccetera) che permette di ot- 
tenere una maggiore leggibilità dei pro- 
grammi. 

Generalmente, questi listati contengono alcu- 
ni caratteri racchiusi tra parentesi graffe { }; 
queste ultime, che non esistono sulla tastiera 
del computer, non devono essere digitate, 
ma hanno unicamente lo scopo di indicare 
che i caratteri da esse racchiusi sono dei ca- 
ratteri di controllo. 

Ad esempio, {GIU'} indica che occorre pre- 
mere una volta il tasto di cursore verso il bas- 
so, {3 GIU'} indica che il tasto di cursore ver- 
so il basso dovrà essere premuto tre volte. 

Se tra le parentesi graffe è racchiuso un sin- 
golo carattere, quest'ultimo deve essere pre- 
muto insieme al tasto CTRL (ad esempio, in- 
contrando {A} si dovrà premere il tasto CTRL 


insieme al tasto A). 

Invece i caratteri racchiusi tra parentesi qua- 
dre e simboli di maggiore e minore [< >] de- 
vono essere premuti unitamente al tasto 
Commodore (nell’angolo inferiore sinistro 
della tastiera). Ad esempio, [<A>] indica che 
deve essere premuto il tasto Commodore in- 
sieme al tasto A. 

Infine, alcuni caratteri racchiusi dalle parente- 
si graffe preceduti dalle lettere SH: ciò indica 
che il carattere seguente deve essere 
digitato tenendo premuto il tasto SHIFT. 

La tabella seguente riporta, per ogni caratte- 
re di controllo, la codifica utilizzata nei nostri 
listati. 

I listati in linguaggio macchina (totalmente nu- 
merici) non possono invece essere copiati di- 
rettamente con il computer, ma richiedono l'u- 
tilizzo dello speciale programma MLX, riporta- 
to, insieme alle istruzioni per il suo utilizzo, in 
altra parte della rivista. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

{CLR } 


G 

{C YN } 

Ém.-il D 


[<7>] 

QD 

□ 

{HOME} 


0 

{PUR} 

I4MI Q 

I 

[<8>] 

□ □ 

■ ■ 
■ ■ 

{SU} 

Finn 

n 

{ GRN } 

■miM □ 

□ 

{FI} 

m 

5 

{GIU ’ } 

nmmi 

E 

{BLU} 

rm o 

□ 

{ F 2 } 


av 

{SIN} 


il 

{YEL} 

rm q 

sa 

{ F3 } 

w 

s 

{DES } 

H3.TEB 

□ 

[<1>] 

□ o 

□ 

{ F 4 } 

m 

IS 

{ RVS } 

rm □ 

E 

[<2>1 

□ B 

15 

{ F5 } 

H3 

II 

{OFF} 

Q 

■ 

[<3>] 

sa 


{ F 6 } 

OH 

SI 

{ BLK } 

m □ 

■ 

( < 4 > ] 

HO 

sa 

•;f7} 

IS 

II 

{ WHT • 

f?n q 

m 

I < 5 > ! 

HO 

E 

i F8 t 

GB 

■ 

i RED} 

EHI Q 

e 

I<6M 

□ □ 

■1 
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Le Grandi Ope 




GRUPPO iWWRWU 



I EI - ENCICLOPEDIA 
DI ELETTRONICA 
E INFORMATICA 


I ENCICLOPEDIA 
MONOGRAFICA 
DI ELETTRONICA 
E INFORMATICA 


DEI - IL GRANDE 
DIZIONARIO 
DI ELETTRONICA 
E INFORMATICA 


Ì ABC 
PERSONAL 
COMPUTER 


• 10 Volumi • 2400 pagine 

• 700 fotografie- 2300 illu- 
strazioni a colori 


• 2 Volumi • 1200 pagine 

• 2000 foto e illustrazioni 

• 500 monografie 


• 10 Volumi • 2000 pagine 

• 45000 termini- 3000 illu- 
strazioni 


3 Volumi • 860 pagine più 
un dizionario con oltre 900 
termini • 600 foto e illustra- 
zioni 


L. 345.000 


L. 595.000 


L. 145.000 


L. 170.000 














da oggi disponibili con pagamento 
rateale a sole L. 25.000 mensili. 



I La formula di acquisto con pagamento rateale 
mensile de “Le Grandi Opere Jackson”, nuo- 
vissima ed estremamente vantaggiosa, Vi per- 
metterà di ricevere direttamente a casa Vostra 
l’opera completa da Voi prescelta, versando un 
semplice anticipo di L. 45.000 ed il saldo in 
comode rate mensili di sole L. 25.000. 


Tutto ciò, senza alcuna maggiorazione di prez- 
zo, di aggravio di interessi, né spese di recapi- 
to! 

Se preferite invece pagare la “Vostra” Grande 
Opera Jackson in un’unica soluzione, potete 
usufruire di uno sconto del 20%. 



I VIDE0BASIC 

(6 VERSIONI) 

• 5 Raccoglitori • 640 pagi- 
ne- 20 lezioni - 20 cassette 
Disponibile per i seguenti 
computer: CI 6/PLUS 4 - 
MSX - Spectrum - C64/ 
CI 28/64PC cassetta e flop- 
py - VIC 20 

L. 220.000 



1 7 NOTE BIT 
CORSO DI MUSICA 


• 3 Raccoglitori • 480 pagi- 
ne- 15 lezioni - 15 cassette 

• 1 tastiera per C64 • 1 000 
fotografie e illustrazioni 



I SOFTWARE - 
CORSO PRATICO 
DI PROGRAMMAZIONE 

• 5 Volumi 1050 pagine • 
3000 fotografie e illustra- 
zioni a colori 





■ CORSO 
DI GRAFICA 
C64/CI28/64PC 

• 1 Volume • 200 pagine • 
10 lezioni • 10 cassette • 
200 foto a colori • 300 illu- 
strazioni a colori 



I A SCUOLA 
DI SCACCHI 
C84/C128/64PC 

• 1 Volume • 200 pagine • 
10 lezioni • 10 cassette • 
più di 1 00 foto a colori • 400 
illustrazioni colori 


L. 195.000 


L. 295.000 


L. 120.000 


L. 120.000 











Le Grandi 
Opere Jackson 


Perchè acquistare “Le Grandi Opere Jackson?” 

Perchè il nome Jackson è sinonimo di elettronica, 
informatica, telecomunicazioni, automazione, per- 
sonal computer: le scienze del futuro, spiegate con 
il linguaggio del presente, semplice ma rigoroso. 
Più di venti riviste professionali, un catalogo di ol- 
tre 350 libri e manuali e 150 testi per la scuola 
tecnica superiore, sono la testimonianza più au- 
tentica della cultura tecnologica e dell’elevata pro- 
fessionalità Jackson, che trovano nelle Grandi 
Opere la loro massima espressione divulgativa. 
La riprova sono gli oltre tre milioni di lettori che 
mensilmente scelgono le pubblicazioni del Grup- 
po Editoriale Jackson: dagli studenti ai tecnici, da- 
gli hobbisti ai professionisti dell’elettronica e 
dell’informatica. 

Perchè Jackson è il punto di riferimento nell’area 
tecnologica più avanzata, dove il rigore e la profes- 
sionalità della divulgazione sono presupposti as- 
solutamente irrinunciabili. 

La diffusione sempre più ampia della cultura tec- 
nologica in Italia è l’impegno preciso che Jackson 
ha voluto assumere fin dall’inizio. 

La formula di acquisto con pagamento rateale 
mensile de “Le Grandi Opere Jackson”: nuovissi- 
ma ed estremamente vantaggiosa, Vi permetterà 
di ricevere direttamente a casa Vostra l’opera com- 
pleta da Voi prescelta, versando un semplice anti- 
cipo di Lire 45.000 e il saldo in comode rate mensili 
di sole L. 25.000. T utto ciò senza alcuna maggiora- 
zione di prezzo, di aggravio d’interessi, né spese di 
recapito! 

Se preferite pagare la “Vostra” Grande Opera 
Jackson in unica soluzione potete usufruire di uno 
sconto del 20%. 

• Per il Vostro lavoro 

• Per il necessario aggiornamento professionale 

• Per Vostro figlio che studia 

• Per capire subito il linguaggio del futuro 

Scegliete con fiducia, “Le Grandi Opere Jackson”, 
usufruendo delle condizioni vantaggiose, ideate 
per Voi da Jackson. 



NCICLOPEDIA 


I ENCICLOPEDIA 
DI ELETTRONICA 
E INFORMATICA 

Questa enciclopedia rappresenta per 
la cultura tecnica italiana una straordi- 
naria opera in cui vengono conpendiati 
tutti gli argomenti dell’Elettronica, 
dell’Informatica, delle Comunicazioni, 
del Personal Computer e dell’Elettro- 
tecnica. Le più recenti scoperte, nuovi 
settori applicativi, le tecnologie più 
avanzate, trovano puntualmente spa- 
zio nei 1 0 volumi di quest’opera, davve- 
ro senza paragoni. 

Quest’opera, realizzata in collaborazio- 
ne con il Learning CenterTEXAS Instru- 
ments, si rivolge ad un pubblico assai 
vasto sia perla semplicità e la chiarez- 
za di esposizione, sia per la completez- 
za degli argomenti presi in esame: Elet- 
tronica di Base, Comunicazioni, Elettro- 
nica Digitale, Microprocessori, Informa- 
tica di Base, Informatica e società, Per- 
sonal Computer, Elettrotecnica. 
Studenti, tecnici, professionisti, opera- 
tori del settore troveranno in quest’ope- 
ra uno strumento impareggiabile di 
consultazione e studio. 

L. 595.000 -cod. 159B 


Ì ABC 
PERSONAL 
COMPUTER 

La particolare struttura dell’opera, che 
non presuppone alcuna conoscenza di 
informatica o di programmazione, e la 
semplicità e chiarezza dell’esposizio- 
ne, consentono di raggiungere un pub- 
blico guanto mai eterogeneo che desi- 
deri apprendere rapidamente gli argo- 
menti e i concetti fondamentali dell’in- 
formatica. 

Pur essendo un’opera di prima alfabe- 
tizzazione informatica, il livello di ap- 
profondimento a cui giunge, la rende 
anche un sicuro riferimento ai più 
esperti. 

ABC Personal Computer è articolata in 
tre volumi: i primi due sono dedicati a!l‘- 
hardware, al software e alla program- 
mazione. Il terzo volume consente al 
lettore di scrivere i primi programmi da 
solo, e, attraverso domanda e risposta, 
riprende, approfondendoli, i concetti 
hardware e software indispensabili. 
Completa l’opera, un dizionario d’infor- 
matica con oltre 900 termini di uso cor- 
rente. 

L. 170.000 -cod. f 60B 


I ENCICLOPEDIA 
MONOGRAFICA 
DI ELETTRONICA 
E INFORMATICA 


In quest'opera sono contemplate 500 
monografie dei termini fondamentali 
dell’elettronica, informatica e comuni- 
cazione. Ogni termine è oggetto di am- 
pia trattazione ed adeguatamente illu- 
strato con fotografie, schemi circuitali, 
disegni e grafici. L’Enciclopedia Mono- 
grafica di Elettronica e Informatica è ri- 
volta a tutti coloro che, per lavoro o per 
studio, vogliono comprendere in forma 
estesa ed approfondita, il significato 
dei principali termini che queste nuove 
discipline hanno immesso nel linguag- 
gio comune. 

L. 145.000 - cod. 161RM 


■ VIDEO BASIC 

(6 VERSIONI) 

Quest’opera è un vero e proprio corso 
di Basic, e non solo di Basic . In venti le- 
zioni su cassetta potrete scoprire e ap- 
prendere in modo interattivo, i segreti 
del Vostro computer. Attraverso una 
esposizione semplice e sfruttando in- 
telligentemente le tecniche di anima- 
zione e di grafica, oltre al linguaggio 
BASIC, Vi verranno proposti i principi di 
funzionamento hardware e le tecniche 
di programmazione. Inoltre ogni cas- 
setta contiene un test per verificare l’ap- 
prendimento raggiunto e uno splendi- 
do gioco “da giocare" o analizzare. 
Disponibile per i seguenti computer: 
C16/PLUS4 (cod. VBC004) - MSX (cod. 
VBM005) - Spectrum (cod. VBS003) - 
C64/C1 28/64PC cassetta (cod. 
VBC002) e floppy (cod. VBCF02) - VIC 
20 (cod. VBV001) 

L. 220.000 


IL GRANDE DIZIONARIO 
DI ELETTRONICA 
E INFORMATICA 

Dei, il grande Dizionario di Elettronica e 
Informatica è il risultato di un importan- 
te lavoro di ricerca durato più di 5 anni, 
che ha coinvolto decine di specialisti. 
DEI è l’unica opera al mondo che ri- 
sponde all’ormai improrogabile neces- 
sità di raccogliere e organizzare tutti i 
termini tecnici nati dalla diffusione della 
elettronica, informatica e comunicazio- 
ne. 

DEI rappresenta quindi il punto di riferi- 
mento obbligato per chi vuole compren- 
dere il significato dei termini di queste 
nuove discipline e desiderano saperli 
utilizzare con padronanza e competen- 
za. 

A fianco dei termini in lingua inglese, or- 
ganizzati in ordine alfabetico, troverete 
la traduzione in italiano, i sinonimi in- 
glesi e italiani, la definizione del termi- 
ne e per quelli più importanti, una este- 
sa descrizione. 

L. 345.000 -cod. 161R 


1 7 NOTE BIT 
CORSO DI MUSICA 

Pensato e realizzato per l’apprendi- 
mento autonomo della musica, questo 
corso è un nuovo strumento didattico 
che permette ai possessori dei COM- 
MODORE C64/C 128/64 PC di appren- 
dere la teoria e la pratica musicale in 
modo estremamente semplice e inno- 
vativo. Inoltre per i possessori del COM- 
MODORE C64, è disponibile una tastie- 
ra che trasforma il computer in un vero e 
proprio organo. 

L'opera è suddivisa in tre sezioni auto- 
nome tra loro ma complementari: la pri- 
ma comprende argomenti e informa- 
zioni relative all’evoluzione delle forme 
e dei generi musicali; la seconda pro- 
pone il nuovo modo di imparare a leg- 
gere la musica nelle sue accezioni rit- 
miche e melodiche; la terza sezione 
comprende una serie di programmi di- 
sponibili su cassetta per l’utilizzo del 
Vostro COMMODORE C64 come stru- 
mento musicale. 

L. 195.000 - cod. SNC004 



SOFTWARE 
CORSO PRATICO 01 
PROGRAMMAZIONE 


Software è un'opera completa, didatti- 
ca e aggiornata sul mondo della pro- 
grammazione del personal computer e 
permette al lettore di apprendere e ap- 
profondire gli argomenti fondamentali 
che danno corpo al concetto di pro- 
grammazione: sistemi operativi, lin- 
guaggio di programmazione e software 
applicativo. 

La padronanza di questi argomenti 
consentono di trasformare il computer 
in un indispensabile strumento di stu- 
dio e di lavoro. Software è strutturato in 
5 volumi. I primi due contengono un 
corso pratico di linguaggio BASIC; il 
terzo volume contempla uno studio ap- 
profondito dei principali linguaggi di 
programmazione per personal compu- 
ter; il quarto tratta esaurientemente dei 
principali SISTEMI OPERATIVI, e l’ulti- 
mo volume è una guida pratica per sce- 
gliere e imparare ad usare i programmi 
ed i pacchetti applicativi più importanti. 


L. 295.0(P - cod. 162SFR 


I 


CORSO DI GRAFICA 
C64/C128/64PC 


Questa opera, rivolta ai pubblico posses- 
sore di COMMODORE C64/C1 28 e 64 
personal computer, nasce dalla neces- 
sità di soddisfare le richieste di una 
utenza che desidera approfondire il 
problema delle prestazioni del suo 
computer in campo grafico e contem- 
poraneamente sente l'esigenza di spin- 
gere le proprie conoscenze verso appli- 
cazioni grafiche professionali che con- 
tribuiscono a creare la grafica dell’era 
moderna. 

L’opera è divisa in due parti che si inte- 
grano a vicenda: una è dedicata all'uso 
e alla programmazione grafica del 
computer; l’altra fornisce un panorama 
completo ed aggiornato dell’affasci- 
nante settore dell’informatica denomi- 
nato COMPUTER GRAPHIC e dei suoi 
strumenti hardware e software. 


L. 120.000 -cod. CG02E 


I 


A SCUOLA DI SCACCHI 
C64/C128/64PC 


“A scuola di scacchi con COMMODO- 
RE 64/C128/64PC” è un’opera nuova 
ed innovativa per il gioco degli scacchi 
E infatti la prima volta che un corso per 
l’apprendimento del gioco viene svolto 
su computer, puntando soprattutto alla 
didattica. Non si tratta quindi di giocare 
contro il computer, ma di seguire passo 
passo l’evoluzione della tecnica scac- 
chistica, partendo dai concetti più ele- 
mentari per giungere ad una piena pa- 
dronanza della teoria. 

Il corso si compone di due parti: la* pri- 
ma costituisce la parte storica del gioco 
nella sua evoluzione attraverso i secoli, 
dalle origini ai nostri giorni. 

La seconda, più propriamente didatti- 
ca, insegna la teoria del gioco degli 
scacchi. 

Un'opera per chi vuole imparare, perfe- 
zionarsi nel gioco, diventare un cam- 
pione. 

L. 120.000 cod. SS02E 


CONDIZIONI DI VENDITA RATEALE 

Per acquistare ratealmente una de "LE GRANDI OPERE JACKSON" e sufficiente ritagliare e spedire questa cedola a 

GRUPPO EDITORIALE JACKSON S.p.A. - Via Rosaliini 12 - 20124 MILANO 

l'apposita "Cedola di Commissione Grande Opere Jackson" e inviare un anticipo di L 45 000 Riceverete a casa Vostra l'opera che avete scelto sen- 
za addebito di spese postali Successivamente la IFITALIA - International Factors Italia Spa Milano provvedere ad mviarVi un numero di bollettini 
mensili per il pagamento in c/c postale, pari al numero delle rate L importo delle rate mensili per ogni singola opera e fissato in L. 25.000. 


Le Grandi Opere Jackson 

Prezzo Opera 

Anticipo 

n : rate mensili 

- El Enciclopedia di Elettronica e informatica 

L. 595 000 

L 45 000 

22 

DEI Dizionano di Elettronica e Informatica 

L 345000 

L. 45 000 

12 

- Enciclopedia Monografica di Elettronica e Informatica 

L 145 000 

L 45.000 

4 

- Software 

L 295000 

L 45 000 

10 

- ABC Personal Computer 

L 170.000 

L 45 000 

5 jk 

- Videobasic (6 versioni) 

L 220 000 

L 45 000 

7 jQà 

- A scuola di scacchi (C64/C 1 28/64PC) 

L 120 000 

L 45 000 

3 

- Corso di Grafica (C64/C128/64PC) 

L 120.000 

L. 45 000 


- 7 Note Bit (C64/C128/64PC) 

L 195 000 

L 45.000 

6 ^ 


ATTENZIONE - L ANTICIPO VA INVIATO AL GRUPPO EDITORIALE JACKSON S.p.A. 

LE RATE MENSILI CONSECUTIVE VANNO PAGATE ALLA INTERNATIONAL FACTORS ITALIA S p A. 



A 


ESEMPIO D’ACQUISTO 

Se desiderate acquistare El - Enciclopedia di Elettronica e Informatica, il cui prezzo di copertina è di L 595 000, dovrete spedire 
al Gruppo Editoriale Jackson - Via Rosellini 1 2 • Milano, l'apposita cedola di commissione "Le Grandi Opere Jackson' e l'anticipo di L 45 000 A par- 
tire dal mese successivo a quello della ricezione dell'opera, pagherete n 22 rate mensili consecutive di L 25 000 a mezzo versamento sul c/c posta- 
le n : 118208 intestato a International Factors Italia SpA MILANO 


IMPEGNO D’ACQUISTO 

1} Sono d'accordo sulle Vostre "Condizioni di vendita rateale" e m'impegno ad acquistare la Vostra Opera . 


. versando l'importo di L 45 000 al GRUPPO EDITORIALE JACKSON SpA - Via Rosellmi 12 - 20124 MILANO 


e il residuo importo di L . 


. in n ‘_ 


. rate mensili consecutive di L. 25.000 da versare sul c/c postale n° 


118208 intestato a International Factors Italia SpA Milano 

2) In caso di accettazione parziale o totale da parte della Vostra Società il credito . dteate di cui alla presente cedola di ordine, deve considerarsi a 
norma degl: art 1 260 CC e 1264 C C , automaticamente ceduto alia INTERNATIONAL FACTORS ITALIA SpA - IFITALIA - con sede a Milano, via 
Vittor Pisani 1 5 alla quale, dovrà da me essere effettuato il pagamento d alla rate mensile a mezzo versamento sul c/c postale n c 1 1 8208. alla stes- 
sa intestato IL PAGAMENTO EFFETTUATO AD ALTRI SOGGETTI NON AVRA .FFETTO LIBERATORIO 

3) Ogni variazione di domicilio, dovrà da me essere comunicata per iscritto entro 8 giorni dalla variazione stessa alla Vostra Società ed alla 
International Factors Italia SpA - Milano 

4) Il mancalo pagamento di due rate anche non consecutive entro le scadenze comporta la mia decaoenza del beneficio del termine 

tart 1 186 C.C ) per cui potrà essermi richiesto l'immediato rimborso -il residuo importo dovutovi 

5) Acquisirò le proprietà dell'opera con il pagamento dell'ultima rata del prezzo (art 1523 CC) 

6) Accetto che per ogni controversia sia competente il Foro di Milano 


Firma e indirizzo— 


Dichiaro di approvare snecificatamente ai sensi art. 1341 C.C. gli art di cui ai n c 2/4/5/6 
DATA . FIRMA 


. desidero ordinare e ricevere a casa mia la seguente "GRANDE OPERA JACKSON" e dichiaro di aver preso atto delle condizioni d'acquisto. 
Desidero effettuare l'acquisto con 


□ El - Enciclopedia di Elettronica a Informatica (cod 159B) n 10 volumi 

□ SOFTWARE (cod 162SFR) n 5 volumi 

□ DEI - Dizionario di Elettronica e Informatica (cod 1 6 1 R) n 10 volumi 

Q Enciclopedia Monografica di Elettronica e Informatica (cod 161RM) n 2 volumi 
C ABC Personal Computer (cod 160B) n 4 volumi * 

□ VIDEOBASIC n 20 lezioni 

□ MSX (cod VBM 005) □ SPECTRUM (cod VBS 003) 

CC64/C128/64PC icod. VBC002) n 20 cassette 
G C64/C 1 28/64PC (cod VBCF02) n 10 floppy 
OC16/PLUS4 icod VBC004) □ VIC 20 (cod VBV001 ) 

D CORSO DI GRAFICA C64/C128/64PC (cod CG02E) n. 10 lezioni 

□ A SCUOLA DI SCACCHI C64/C1 28/64PC (COd. SS02E) n 10 lezioni 
7 NOTE BIT C64/C 128/64 PC (cod SNC004) 


□ PAGAMENTO 

RATEALE 

□ PAGAMENTO IN UNICA 
SOLUZIQNE (sconto 20% 

L 595 000 

L 476 000 

L 295000 

L 236000 

L 345 000 

L 276.000 

L 145 000 

L 116 000 

L 170 000 

L 136 000 

L. 220.000 

L. 176.000 

L 120.000 

L 96.000 

L 120 000 

L 96000 

L. 195.000 

L 156.000 


sbarrare con una X la casella □ relativa all'opera richiesta e il tipo di pagamento. Con la presente cedola di commissione potete acquistare solo 
un'opera Nel caso di acquisto di due o più opere utilizzare due o più cedole di commissione (o fotocopie della stessa! 

COGNOME E NOME . . . . . : ’ 


CAP ; CITTÀ ... 

LUOGO E DATA DI NASCITA 


- tei. ( ) 

. PROVINCIA 


□ Richiedo l'emissione della Iattura (formula riservata alle aziende) e comunico il n di Partita IVA 


□ Desidero effettuare l’acquisto con pagamento rateale 
Modalità di pagamento dell'importo anticipato di L 45 000 


[a~] Allego assegno n . 


. di L 45 000 della Banca 


| Ho effettuato il pagamento di L 45 000 a mezzo □ vaglia postale □ vaglia telegrafico LI versamento sul c/c postale n. 1 1666203 intestato a 
Gruppo Editoriale Jackson SpA Milano e allego fotocopia della ricevuta 
[c| Pagherò al postino l'importo di L 45 000 al ricevimento dell'opera 

fb] Vi autorizzo ad addebitare l'importo di L 45 000 sulla carta di credito: □ Visa □ American Express □ Dmers Club n 

data di scadenza 


* □ Modalità di pagamento delle rate mensili successive di L 25.000 M'impegno ad effettuare il pagamento del residuo di lire _ 
5 (indicare il prezzo dell'opera detraendo l’impoMo di L. 45 000. già versato, quale anticipo per la sottoscrizione), in n rate 


mensili consecutive di L 25.000 a mezzo versamento sul c/c postale n 1 18208 intestato a International Factors Italia SpA Milano. 


□ Desidero effettuare l’acquisto con pagamento in unica soluzione Ho quindi diritto allo sconto del 20% sul prezzo di copertina dell'opera da me 
scelta 

Modalità di pagamento dell’importo in unicà soluzione 


(a] Allego assegno n 


della Banca . 


J Ho effettuato il pagamento di L. . 


— a mezzo: Dvaglia postale Ovaglia telegrafico Dversamento sulc/c postale 


n. 1 1666203 intestato a Gruppo Editoriale Jackson SpA Milano e allego fotocopia dedita ricevuta 
fcj Pagherò al postino l’importo di I ai ricevimento dell’opera 

fp| Vi autorizzo ad addebitare l’importo di L. _ — L- — sulla carta di credito: □ Visa □ American Express □ Diners Club 


data di scadenza _ 


. FIRMA 


Questa cedola di Commissione è valida solo se è firmata in tutti i tre punti contrasseanati con i 





di F.Karg 

trad. ed adatt. di S.Colombo 


Questo programma veramente in- 
novativo permette di creare un 
puzzle a video, dotato di vari li- 
velli di complessità, traendo le im- 
magini dai file grafici In alta risolu- 
zione generati dai diffusi Doodle 
e Koalapainter. E' richiesto l'uso 
del disk drive e di un joystick. 

Video Jigsaw vi permette di passare mo- 
menti divertenti utilizzando le immagini 
grafiche in alta risoluzione generate dal 
Doodle oppure dal Koalapainter (i più dif- 
fusi programmi disegnare in alta risoluzio- 
ne con il C64). Dopo aver scelto l'immagi- 
ne grafica da utilizzare per il puzzle, è 
possibile scegliere il livello di difficoltà e 
cercare di risolvere il puzzle spostando- 
ne i vari pezzi sullo schermo tramite il jo- 
ystick. 

Dopo aver dato il RUN al programma, vie- 
ne richiesto di inserire nel drive un disco 
contenente i file grafici precedentemen- 
te generati da Doodle o Koalapainter. 
Dopo aver inserito il dischetto, i file grafi- 
ci vengono elencati sullo schermo ed è 
possibile selezionare tramite i tasti curso- 
re quello prescelto per il puzzle. 

Dopo aver premuto RETURN per confer- 
mare la scelta del file, viene richiesto di 
scegliere le dimensioni dei pezzi che do- 
vranno comporre il puzzle, in termini di 
larghezza (2-12), ed in termini di altezza 


(2-20). Questa caratteristica rende il gio- 
co estremamente variabile come livello 
di difficoltà, dal facilissimo al quasi impos- 
sibile. 

Dopo avere operato queste scelte, appa- 
re il puzzle con una freccia lampeggian- 
te che punta verso il pezzo più in alto a si- 
nistra. E’ possibile selezionare il pezzo 
che si desidera spostare posizionando 
su di esso la freccia tramite il joystick, e 
premendo RETURN; si porterà quindi la 
freccia in corrispondenza dell'area in cui 
si vuole muovere il pezzo e si premerà 
nuovamente RETURN. 

Se non riuscite a venire a capo del puz- 


zle, premete FI e vi verrà mostrata l’im- 
magine completa; la successiva pressio- 
ne di FI vi farà rientrare nel puzzle. 
Quando riuscirete a risolvere il puzzle, il 
programma vi richiederà se desiderate ri- 
solverne un altro oppure terminare le 
operazioni: rispondete rispettivamente 
con s o con N alla domanda posta dal 
computer. 

Per chi non possedesse nè il Doodle nè 
il Koalapainter, abbiamo inserito sia sulla 
rivista (programma 2*in formato MLX) che 
sullacassetta(IMAGE)un’immaginegrafi- 
ca che può essere utilizzata con Video Ji- 
gsaw. Se caricata da cassetta, l’immagi- 


46 SUPERCOMMODORE C64 4128 10/87 


POKE643,0:POKE644,95:SYS58260 


ne grafica dovrà essere trasferita su 
disco. 

I dati necessari alladigitazione (o trasferi- 
mento su disco) dell'immagine tramite 
MLX sono i seguenti: 

1. Prima di caricare MLX digitare in modo 
diretto: 


2. Utilizzare con MLX i seguenti indirizzi: 

indirizzo iniziale:24576 
indirizzo finale:34577 


Si noti che il nome del file su disco del- 
l'immagine grafica dovrà iniziare con il ca- 
rattere ottenibile premendo contempora- 
neamente i tasti Commodore e 1 
(CHR$(129)) e dovrà eventualmente es- 
sere seguito da spazi fino ad ottenere 
una lunghezza complessiva di 15 carat- 
teri. 


Video Jigsaw 

10 IF AA=1THEN90 : rem 120 

20 POKE53280, 0 :POKE53281, 0 : PRINT" {CLR} 
[<1>] "TAB (13) " {RVS ) VIDEO JIGSAW " 

: rem 244 

30 GOSUB1230 :AA=1 :PRINT" {CLR} { 2 GIU'} 

{ 7 SPAZI }LOADING "N$ (A) : rem 149 

40 PRINT" { 3 GIU’} ATTENDERE {BLK} " 




: rem 

168 

50 

IFLEFTS (N$ (A) 

, 1)="D"THENZZ=1 : rem 

11 

60 

IFLEFTS (N$ (A) 

, 1)=" [<1>] "THENZZ=2 




: rem 

74 

70 

POKE49990, ZZ 

: rem 

133 

80 

LOAD N$ (A) , 8, 

1 : rem 

77 

90 

POKE55, 0 : POKE56, 92 :CLR: ZZ=PEEK (49990) : 


DIM N$ (19) 

: rem 

213 


100 F0RA=828T0873:READ D : POKEA, D : NEXT 

: rem 1 0 

110 F0RA=49879T049973:READ D : POKEA, D : NEXT 

:rem 236 

120 PRINT” {CLR} {BLU} " :POKE781, 8 :POKE782, 5 
:POKE783, 0:SYS65520 :rem 144 

130 PRINT” {RVS }DIMENSIONI DEI PEZZI DEL P 
UZZLE:" : rem 195 

140 PRINT" { 2 DES} {GIU’ } (NUMERI PICCOLI L 
O RENDONO DIFFICILE)" : rem 4 

150 POKE781, 14 : POKE7 82,2: POKE783, 0 :SYS655 
2 0 : rem 0 

160 PRINT "LUNGHEZZA ({RVS}DA 2 A 12 {OFF}) 
INPUT L$ : rem 229 

170 L=VAL (L$) : IFL<2ORL>12THEN150 : rem 155 
180 POKE781, 18 :POKE782, 2 :POKE783, 0 :SYS655 
2 0 : rem 7 

190 PRINT "LARGHEZZA ({RVSJDA 2 A 20 {OFF} 
) : INPUT W$ : rem 226 

200 W=VAL (W$) : IFW<20RW>20THEN180 : rem 195 
210 PRINT" {CLR} { 3 GIU' } { 3 SPAZI }QUANDO 
APPARE IL PUZZLE SI PUÒ'" : rem 225 

220 PRINT" {GIU' } { 3 SPAZI } OSSERVARE LA SO 
LUZIONE PREMENDO" : rem 223 

230 PRINT" {GIU' } { 3 SPAZI} IL TASTO {RVS}F 
1" :rem 32 

240 PRINT" {YEL} { 2 GIU'H 3 SPAZI } INSERIS 
CI IL JOY IN PORTA 2" : rem 166 

250 PRINT" {GRN}{ 2 GIU'H 3 SPAZI} LO SCHE 
RMO SI AZZERERÀ' PER{ 3 SPAZI}" 

: rem 98 

260 PRINT" { 3 SPAZI }CIRCA 2 MINUTI 

{ 11 SPAZI }{ 2 GIU’}" : rem 245 

270 PRINT" { 2 SPAZI }PREMI UN TASTO PER IN 
IZIARE . . . { 5 SPAZI}" : rem 225 


280 GET K$ : IFK$=" "THEN PRINT" { SU} POKE6 



46, PEEK (56325) :GOTO270 

: rem 

42 

290 

POKE53265, PEEK (53265) AND239 

: rem 

231 

300 

IFZZ=1THENGOSUB1530 

: rem 

188 

310 

IFZZ=2THENGOSUB157 0 : GOSUB1530 : POKE532 


81 , PEEK (34576) 

: rem 

92 

320 

FORA=32704TO32767 :READ D : POKEA, D : 

NEXT 



: rem 

211 

330 

V=53248 : SID=54272 : XX =24+<W*4-4) : 

YY=5 


0+ (L*4) -4 

: rem 

190 

340 

POKESID+5, 9 : POKESID+6, 9 

: rem 

122 

350 

MAX=XX+ ( INT (40/W) -1) *8*W: MYX=YY+ ( INT ( 


25/L) -1 ) *8*L 

: rem 

69 

360 

DIM S (1000) :DIMC(1000) 

: rem 

65 

370 

DEF FN HI (M)=INT (M/256) :DEF 

FN LO (M) = 


M-256*FN HI (M) 

: rem 

213 

380 

FOR N =0 TO INT (25/L)-l 

: rem 

92 

390 

FOR N1=0 TO INT (40/W)-l 

: rem 

150 

400 

B=B+1 

: rem 

177 

410 

S (B) =2457 6+N1* (W*8) +N* (L*320) 




: rem 

157 

420 

C (B) =55296+Nl* (W)+N* (40*L) 

: rem 

254 

430 

A$=A$+CHR$ (B) 

: rem 

93 

440 

NEXT NI :NEXTN 

: rem 

29 

450 

D$=A$ : B$=A$ 

: rem 

229 

460 

FORI=lTOB : A=I+INT ( (B+l-I) *RND (0) ) 




: rem 

121 

470 

D$=MID$ (D$, A, 1) +LEFT$ (D$, A- 

1) +RIGHT$ ( 


D$, B-A) 

: rem 

33 

480 

NEXT 

: rem 

219 

490 

Z=INT(LEN(D$) 12 ) *2-2 

: rem 

36 

500 

FORI=lTO Z STEP2 : X1=ASC (MID$ (D$, I 

,D) 


:X2=ASC(MID$ (D$, 1+1, 1) ) 

: rem 

93 

510 

GOSUB1020 : GOSUB7 60 

: rem 

48 

520 

POKE532 8 0, 1: NEXT : D$=B$ : B$=A$ : rem 

61 

530 

B=1 

: rem 

72 

540 

POKEV+2 8 , PEEK ( V+2 8 ) ORI : POKEV+3 9 , 7 

: POK 


EV+37 , 2 : POKEV+38 , 5 : POKEV, X 

: rem 

118 

550 

POKEV+ 1 , Y : POKE2 4568,255: POKEV+2 1 , 

1 



: rem 

228 

560 

POKE53265, PEEK (53265) AND239 

: rem 

231 

570 

POKE53265, 59 :POKE53272, 120 : 

POKE56576, 


PEEK (56576) AND254 

: rem 

40 

580 

IFZZ=2THENPOKE53270 , 216 

: rem 

115 

590 

POKE5 32 6 5, PEEK (53265) ORI 6 

: rem 

129 

600 

POKESID+24, 15 

: rem 

200 

610 

LE=L*8 :WE=W*8 

: rem 

223 

620 

X=XX : Y=YY 

: rem 

95 


630 GETKS : IFK$=" {FI } "THENGOSUB1150 
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: rem 

156 

640 

TG=1-TG : POKEV+2 1 , TG : J2=PEEK (56320) 




: rem 

232 

650 

FR=J2AND16 : JV=15- ( J2AND15) 

: rem 

214 

660 

IF FR=0THENGOSUB950 :GOTO630 

: rem 

137 

670 

IFJV=1 AND Y>YY THENY=Y-LE : 

B=B-INT (40 


/W) :GOTO710 

: rem 

139 

680 

IFJV=2 AND Y<MYX THENY=Y+LE 

:B=B+INT (4 


0/W) :GOTO710 

: rem 

211 

690 

IFJV=4 AND X>XX THENX=X-WE : 

B=B-1 : GOTO 


710 

: rem 

161 

700 

IFJV=8 AND X<MAX THENX=X+WE 

: B=B+1 




: rem 

194 

710 

TR= (X>255) 

: rem 

254 

720 

POKEV+16, TR* (-1) 

: rem 

91 

730 

POKEV, X+ (TR*255) :POKEV+l,Y 

: rem 

43 

740 

GOTO 630 

: rem 

109 

750 

GOSUB1020 : IFB$=D$THEN EN=1 

: rem 

227 

760 

FORN=OTOL-1 : FOR Nl=0TOW-l 

: rem 

241 

770 

Y1=S (X1)+(N1*8)+(N*320) :C1= 

C (XI ) +N1+N 


*40 :V1=C1-31744 

: rem 

211 

780 

Y2=S (X2)+(N1*8)+(N*320) :C2= 

■C (X2 ) +N1+N 


*40 : V2=C2-31744 

: rem 

218 

790 

YL=FN LO(Yl) : YH= FN HI(Y1) 

: rem 

164 

800 

XL=FN LO (Y2 ) : XH= FN HI(Y2) 

: rem 

156 

810 

POKE 1 6 5 , YL : POKE 1 6 6 , YH : POKE 1 6 7 , XL : POKE 


168, XH 

: rem 

179 

820 

SYS 828 

: rem 

59 

830 

IFZZ=2 THEN POKE49160, PEEK (Cl) : POKEC1 


, PEEK (C2) :POKEC2, PEEK (49160) : rem 

61 

840 

POKE49 161, PEEK ( VI ) : POKEV1 , PEEK ( V2 ) 

:PO 


KEV2 , PEEK (49161) 

: rem 

171 

850 

NEXT : NEXT 

: rem 

85 

860 

IFEN=1THEN10 60 

: rem 

36 

870 

RETURN 

: rem 

127 


880 POKE53270, 200 :POKE53265, 27 :POKE53272, 
2 1 : POKE5 657 6 , PEEK ( 5 657 6 ) ORI : POKEV+2 1 , 
0 : rem 4 4 

890 POKE53280, 0 :POKE53281, 0 :PRINT" {CLR} 
{GIU' } [<1>] { 3 SPAZI } CARICO UN ALTRO 
DISEGNO PER { 4 SPAZI)" : rem 236 

900 PRINT" { 2 GIU'H 4 SPAZI }GIOCARE ANCO 
RA{ 2 SPAZI) {RVS} (S/N) {OFF) 

:rem 58 

910 GETA$ : IFA$=" "THEN910 : rem 87 

920 IFA$="N"THEN POKE55, 0 :POKE56, 160 :CLR: 

STOP : rem 180 

930 IFA$="S"THENPRINT : GOTO30 :rem 246 

940 GOTO910 :rem 112 

950 FL=FL+1 : rem 91 

960 IFFL=2THENX2=B : IFX2=X1THEN FL=1 : RETUR 
N : rem 201 

970 IF FL=2 THEN FL=0 :GOSUB990 :GOSUB750 :R 
ETURN : rem 42 

980 X1=B:G0SUB1 000: RETURN : rem 62 

990 HF=110:LF=0:GOSUB1010: RETURN: rem 206 
1000 HF=70 :LF=0 .-GOSUB10 10 -.RETURN: rem 194 
1010 POKESID+1, HF :POKESID, LF : POKESID+4, 17 
:POKESID+4, 16 : RETURN : rem 127 

1020 IFX1>X2THENX3=X1 :X1=X2 :X2=X3 


: rem 57 

1030 X1$=MID$ (B$,X1, 1) :X2$=MID$ (B$,X2, 1) 

: rem 98 

1040 B$=LEFT$ (B$, Xl-1) +X2$+MID$ (B$,X1+1,X 
2-X1-1) +X1$+RIGHT$ (B$,LEN(B$)-X2) 

:rem 234 

1050 RETURN :rem 166 

10 60 FOR R=0TO2 : rem 66 

1070 POKESID+5, 85 : POKESID+6, 85 : POKESID+12 
, 85 :POKESID+13, 85 : rem 244 

1080 POKESID+4, 33 :POKESID+ll, 17 : rem 51 

1090 FORN=0TO5 :FORX=0TO3 : V (X) =PEEK (850+ (N 
*4) +X) :NEXT : rem 173 

1100 POKESID+1, V (0) :POKESID, V (1) :POKESID+ 
8, V(2) :POKESID+7, V (3) : POKE53280 , V (2 ) 

: rem 7 9 

1110 IFH1=50THEN FOR T=lTO200 :NEXT 

: rem 243 

1120 F0RT=1T0125 :NEXT :NEXT : rem 154 

1130 POKESID+4, 32 :POKESID+ll, 16:F0RW=1T05 
00 :NEXT :NEXT : rem 61 

1140 GOTO880 :rem 159 

1150 IFZZ=2THENGOSUBl 620 : rem 241 

1160 POKE53272 , 8 : POKE5657 6, (PEEK (56576) AN 
D252 ) ORI : rem 18 

1170 POKEV+2 1, 0 : rem 56 

1180 GETK$ : IFK$<>" {FI ) "THEN1180 : rem 141 

1190 IFZZ=2THENGOSUB1620 : rem 245 

1200 POKE53272, 120 :POKE56576, (PEEK(56576) 
AND252 ) OR2 : rem 105 

1210 POKEV+2 1, 1 : rem 52 

1220 RETURN : rem 165 

1230 PRINT" { 3 GIU’} INSERIRE IL DISCO CO 
NTENENTE { 2 SPAZI ){ RVS )DOOD LE {OFF )" : 



N=1 

: rem 

118 

1240 

PRINT TAB ( 8 ) ; "O { 2 SPAZI } {RVS ) KOALA 


{OFF} FILES" 

: rem 

1 

1245 

PRINT" {GIU '} [<8>] -LA CASSETTA CONTIE 


NE UN FILE- [<1>] 

: rem 

255 

1250 

PRINT" { 2 GIU'H 3 SPAZI } PREMI UN TA 


STO PER INIZIARE." 

: rem 

214 

1260 

GETK$ : IF K$=""THEN1260 

: rem 

201 

1270 

PRINT" {CLR} {GIU' } "TAB (12) ;" 

{RVS} 

FIL 


E GRAFICI: { 2 GIU' }" 

: rem 

204 

1280 

OPEN1, 8,0, "$" 

: rem 

130 

1290 

GET#1, B$ : IFSTO0THEN1400 

: rem 

160 

1300 

IFN>19THEN1400 

: rem 

61 

1310 

IFB$OCHR$ (34) THEN1290 

: rem 

232 

1320 

N$=" " 

: rem 

185 

1330 

GET#1 , B$ : IFB$OCHR$ (34) THEN 

N$=N$+B$ 


: GOTO1330 

: rem 

10 


1340 GET#1, B$ : IFB$=CHR$ (32)THEN1340 

:rem 168 

1350 IFLEFT$ (N$, 1) =" "THEN N=N-1 :GOTO1380 

:rem 237 

1360 IFLEFT$ (N$, 2) <>"DD"ANDLEFT$ (N$, 1)0" 
[<1>]" THENN=N-1 :GOTO1380 : rem 53 

1370 N$ (N) =N$ :PRINTTAB ( 12 ) N$ (N) : rem 238 

1380 GET#1 , B$ : IFB$<>" "THEN1380 : rem 122 

1390 IF ST=0THEN N=N+1 :GOTO1290 : rem 19 
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ocienza 

tecnologia 


dizionari enciclopedici 

UNDICI STRUMENTI 
PREZIOSI 

PER UN RAPIDO ACCESSO 
ALLA CONOSCENZA 


I Dizionari Tecnico-Scientifici costituiscono una 
novità assoluta nel panorama editoriale italiano, 
in quanto uniscono la decennale esperienza di 
know-how informatico e di divulgazione tecnica, 
maturati dal Gruppo Editoriale Jackson, alla com- 
petenza specifica degli Autori, tutti docenti di 
primarie Università italiane. 

Le opere sono pertanto strutturate per guidare il 
lettore, attraverso le varie materie, con la massi- 
ma semplicità e coerenza espositiva. 

In più tutti i dizionari 'sono organizzati in voci 
enciclopediche tradotte in inglese e corredate di 
trascrizione fonetica e, grazie alla profonda espe- 
rienza informatica Jackson, utilizzano una estesa 
rete di rinvìi, controllata da calcolatore, per age- 
volare la ricerca non solo del termine principale, 
ma anche delle voci attinenti. Appendici di rapida 
consultazione e un vasto materiale iconografico 
ne completano la struttura. 


MATEMATICA 




ASTRONOMIA 



RAGIONERIA 

APPLICATA 


FISICA 


BIOLOGIA 



ELETTRONICA 


CHIMICA 

r 



RAGIONERIA 

GENERALE 



GEOLOGIA 


I PICCOLI GRANDI 
DIZIONARI JACKSON 

NELLE MIGLIORI LIBRERIE 


INFORMATICA 


nun 



KB C I A.B C 

lati d> un triangolo* J lati d< un triangolo' J 


MECCANICA 



cienza 
ecnologia 


dizionario enciclopedico 

GEOLOGIA 




Roberto Carumati 
Roberto Potenza 
Bruno Testa 


GRUPPO EDITORIALE 

JACKSON 



GRUPPO EDITORIALE 

JACKSON 


DIVISIONE LIBRI 





1400 CLOSE1 : rem 108 

1410 IFN=1THENPRINT" { 6 SPAZI } {RVS } NESSUN 
A IMMAGINE SU DISCO” : FORI-1TO2000 :NE 
XT :GOTO1230 :rem 144 

1420 PRINT" {GIU' } { 2 SPAZI} (USA IL CURSOR 
E PER SCEGLIERE) : rem 243 

1430 PRINT" {GIU' } { 4 SPAZI } {RVS } PREMI RET 
URN PER CARICARE {GIU' } :rem 41 

1440 A=1 :C1=0 :C=125 :GOSUB1510 : rem 102 

1450 K=PEEK (197) : SH=PEEK (653) : IFK<>7ANDK< 
>1THEN1450 : rem 22 

1460 IFK=7ANDSH=0ANDA< (N-l) THENC1=1 :GOSUB 
1500 : rem 210 

1470 IFK=7AND SH=1ANDA>1THENC1=-1 :GOSUB15 
00 :rem 55 

1480 IFK=1THENRETURN : rem 36 

1490 GOTO1450 :rem 209 

1500 FORI=0TO24 :POKE55296+I+ (A) *40+C,8:NE 
XT :rem 234 

1510 A=A+C1 :FORI=0TO24 :POKE55296+I+ (A) *40 
+C, 1 :NEXT : rem 124 

1520 RETURN :rem 168 

1530 POKE49872, 0 :POKE49873, 92 :POKE49874, 0 
:POKE49875, 96 :POKE49876, 0 :rem 50 

1540 POKE49877, 128 :POKE49878, 0:SYS49879 

:rem 250 

1550 POKE49872,0:POKE49873, 96 :POKE49874, 0 
:POKE49875, 128 :POKE49876, 0 :rem 100 
1560 POKE49877, 160 :POKE49878, 0 :SYS49879:R 
ETURN : rem 18 

1570 POKE49872, 64 :POKE49873, 127 :POKE49874 
z 39 :POKE49875, 131 :POKE49876, 0 

: rem 1 

1580 POKE49877, 92 :POKE49878, 0 :SYS49879 

: rem 206 

1590 POKE49872, 40 :POKE49873, 131 :POKE49874 
,15:POKE49875, 135 :POKE49876, 0 

: rem 246 

1600 POKE49877, 216 :POKE49878, 0:SYS49879 

:rem 245 

1610 POKE49877, 196 :POKE49878, 0:SYS49879:R 
ETURN : rem 23 

1620 POKE49872, 0 :POKE49873, 216 :POKE49874, 
0 :POKE49875, 220 :POKE49876, 0 : rem 133 
1630 POKE49877, 196 :POKE49878, 1 : SYS49879 :R 
ETURN : rem 26 


1640 

DATA 

160,0,177,165,153,0,192,177 




: rem 

31 

1650 

DATA 

167,145,165,185,0,192,145,167 

:rem 144 

1660 

DATA 

200,192,8,208,237,96,25,30 

: rem 

240 

1670 

DATA 

18,209,33,135,25,30,42,62 

: rem 

183 

1680 

DATA 

31,165,50,60,37,162,42,62 

: rem 

185 

1690 

DATA 

31, 165,50, 60,37, 162 -.rem 

148 

1700 

DATA 

173,210,194,205,208,194,173 

: rem 

32 

1710 

DATA 

211,194,237,209,194,144,80, 

173 




: rem 

186 

1720 

DATA 

208,194,133,251,173,209, 194 




: rem 

39 

1730 

DATA 

133,252,173,212,194, 133,253 




: rem 

28 

1740 

DATA 

173,213,194,133,254,173,210 




: rem 

29 

1750 

DATA 

194,133,247,173/211,194,133 




: rem 

37 

1760 

DATA 

248,173,214,194,133,249,160, 

0 



: rem 

135 

1770 

DATA 

177,251, 166,249,240,8,133,250 



: rem 

140 

1780 

DATA 

177,253,145,251,165,250,145 




: rem 

42 

1790 

DATA 

253,230,251,208,2,230,252,230 



: rem 

117 

1800 

DATA 

253,208,2,230,254,165,252,197 



: rem 

131 

1810 

DATA 

248,208,222,165,247,197,251, 

48 



: rem 

196 

1820 

DATA 

3,76, 10, 195, 96 : rem 

164 

1830 

DATA 

170,192,0,187,0,0,169,0 




: rem 

78 

1840 

DATA 

0,183, 64, 0,193, 144, 0,0: rem 

23 

1850 

DATA 

116,0,0,25,0,0,7,64 : rem 

124 

1860 

DATA 

0,1,144,0,0,116,0,0 : rem 

111 

1870 

DATA 

25,0,0,7,0,0,0,0 : rem 

220 

1880 

DATA 

0,0, 0,0, 0,0, 0,0 : rem 

159 

1890 

DATA 

0,0, 0,0, 0,0, 0,0 : rem 

160 

1900 

DATA 

0,0,0,0,0,0,0,197 : rem 

9 


Image 

24576 : 000, 063, 063, 063, 0 63, 063, 059 
24582 : 063, 063, 000, 255, 255, 255, 129 
24588 .-255,255,255, 170,000,255,178 
24594 :255, 255, 255, 255, 255, 170, 183 
2 4600 : 000, 255, 255, 255, 255, 255, 019 
24606 :255, 170, 000, 255, 255, 255, 196 
24612 :255,255,255, 170, 000,255,202 
24618 : 255, 255, 255, 255, 255, 170,207 
24624 : 000, 255, 255, 255, 255, 255, 043 
24630 :255, 170, 000,255,255,255,220 
24636 : 255, 255, 255, 170, 000,255,226 
2 4642 : 255, 255, 255, 255, 255, 191,252 
24648 : 000, 255, 255, 255, 255, 255, 067 
24654 .-255,234,000,255,255,255,052 
24660 : 255, 255, 255, 170, 000,255,250 
24666 : 255, 255, 255, 255, 255, 170,255 
24672 : 000, 255, 255, 255, 255, 255, 091 
24678 :255, 170, 000,255,255,255, 012 
24684 : 255, 255, 255, 170,000,255,018 
2 4690 : 255, 255, 255, 255, 255, 170, 023 
2 4696 : 000, 255, 255, 255, 255, 255, 115 
24702 :255, 170, 000, 255, 255, 255, 036 
24708 : 255, 255, 255, 170, 000, 255, 042 
24714 :255, 255, 255, 255, 255, 170, 047 
24720 : 000, 255, 255, 255, 255, 255, 139 
2472 6 : 255, 170,000,255,255,255,060 
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24732 : 255 , 255 , 255 , 170 , 000 , 255, 066 
24738 : 255 , 255 , 255 , 255 , 255 , 170, 071 
24744 : 000 , 255 , 255 , 255 , 255 , 255 , 163 
24750 : 255 , 170 , 000 , 255 , 255 , 255,084 
24756 : 255 , 255 , 255 , 170 , 000 , 255,090 
247 62 : 255 , 255 , 255 , 255 , 255 , 170, 095 
247 68 : 000 , 255 , 255 , 255 , 255 , 255, 187 
2477 4 : 255 , 170 , 000 , 255 , 255 , 255 , 108 
24780 : 255 , 255 , 255 , 170 , 000 , 255 , 114 
24786 : 255 , 255 , 255 , 255 , 255 , 170,119 
24792 : 000 , 255 , 255 , 255 , 255 , 255, 211 
247 98 : 255 , 170 , 000 , 255 , 255 , 255 , 132 
24804 : 255 , 255 , 255 , 170 , 000 , 255, 138 
24810 : 255 , 255 , 255 , 255 , 255 , 170, 143 
24816 : 000 , 255 , 255 , 255 , 255 , 255, 235 
24822 : 255 , 170 , 000 , 255 , 255 , 255, 156 
24828 : 255 , 255 , 255 , 170 , 000 , 255 , 162 
24834 : 255 , 255 , 255 , 255 , 255 , 170, 167 
24840 : 000 , 255 , 255 , 255 , 255 , 255, 003 
24846 : 255 , 170 , 000 , 255 , 255 , 255 , 180 
24852 : 255 , 255 , 255 , 170 , 000 , 255 , 18 6 
24858 : 255 , 255 , 255 , 255 , 255 , 170 , 191 
24864 = 000 , 255 , 255 , 255 , 255 , 255,027 
24870 = 255 , 170 , 000 , 255 , 255 , 255,204 
24876 = 255 , 255 , 255 , 170 , 000 , 255,210 
24882 = 255 , 255 , 255 , 255 , 255 , 171,216 
24888 = 000 , 252 , 252 , 252 , 252 , 252,036 
24894 = 252 , 252 , 063 , 063 , 063 , 063,050 
24900 = 063 , 063 , 063 , 063 , 255 , 255,062 
24906 = 255 , 255 , 255 , 255 , 255 , 255,068 
24912 = 255 , 255 , 255 , 255 , 255 , 255,074 
24918 = 255 , 255 , 255 , 255 , 255 , 255,080 
24924 = 255 , 255 , 255 , 255 , 255 , 255,086 
24930 = 255 , 255 , 255 , 255 , 255 , 255,092 
24936 = 255 , 255 , 255 , 255 , 255 , 255,098 
24942 = 255 , 255 , 255 , 255 , 255 , 255,104 
24948 = 255 , 255 , 255 , 255 , 255 , 255,110 
24954 = 255 , 255 , 255 , 255 , 255 , 255,116 
24960 = 175 , 170 , 170 , 170 , 170 , 170,129 
24966 = 170 , 170 , 250 , 254 , 255 , 127,080 
24972 = 095 , 087 , 087 , 085 , 170 , 170,066 
24978 = 170 , 234 , 234 , 250 , 254 , 255,007 
24984 = 255 , 255 , 255 , 255 , 255 , 255,146 
24990 = 255 , 255 , 255 , 255 , 255 , 255,152 
24996 = 255 , 255 , 255 , 255 , 255 , 255,158 
25002 = 255 , 255 , 255 , 255 , 255 , 255,164 
25008 = 255 , 255 , 255 , 255 , 255 , 255,170 
25014 = 255 , 255 , 255 , 255 , 255 , 255,176 
25020 = 255 , 255 , 255 , 255 , 255 , 255,182 
25026 = 255 , 255 , 255 , 255 , 255 , 255, 188 
25032 = 255 , 255 , 255 , 255 , 255 , 255,194 
25038 = 255 , 255 , 255 , 255 , 255 , 255,200 
25044 = 255 , 255 , 255 , 255 , 255 , 255,206 
25050 = 255 , 255 , 255 , 255 , 255 , 255,212 
25056 = 255 , 255 , 255 , 255 , 255 , 255,218 
25062 = 255 , 255 , 255 , 255 , 255 , 255,224 
25068 = 255 , 255 , 255 , 255 , 255 , 255,230 
25074 = 255 , 255 , 255 , 255 , 255 , 255,236 
25080 = 255 , 255 , 255 , 255 , 255 , 255,242 
25086 = 255 , 255 , 255 , 255 , 255 , 255,248 


25092 = 255 , 255 , 255 , 255 , 255 , 255,254 
25098 = 255 , 255 , 255 , 255 , 255 , 255,004 
25104 = 255 , 255 , 255 , 255 , 255 , 255,010 
25110 = 255 , 255 , 255 , 255 , 255 , 255,016 
25116 = 255 , 255 , 255 , 255 , 255 , 255,022 
25122 = 255 , 255 , 255 , 255 , 255 , 255,028 
25128 = 255 , 255 , 255 , 255 , 255 , 255,034 
25134 = 255 , 255 , 170 , 170 , 170 , 170, 212 
25140 = 170 , 170 , 175 , 181 , 170 , 170,064 
25146 = 170 , 170 , 170 , 255 , 213 , 085,097 
25152 = 170 , 170 , 170 , 170 , 170 , 254,144 
25158 = 095 , 085 , 170 , 170 , 170 , 170,162 
25164 = 170 , 170 , 234 , 122 , 255 , 255, 002 
25170 = 255 , 255 , 255 , 255 , 255 , 255,076 
25176 = 255 , 255 , 255 , 255 , 255 , 255,082 
25182 = 255 , 255 , 255 , 255 , 255 , 255,088 
25188 = 255 , 255 , 255 , 255 , 255 , 255,094 
25194 = 255 , 255 , 255 , 255 , 255 , 255, 100 
25200 = 171 , 171 , 171 , 171 , 171 , 171,114 
25206 = 171 , 171 , 252 , 252 , 252 , 252, 188 
25212 = 252 , 252 , 252 , 252 , 063 , 063,234 
25218 = 063 , 063 , 063 , 063 , 063 , 063,252 
25224 = 255 , 255 , 255 , 255 , 255 , 255, 130 
25230 = 255 , 255 , 255 , 255 , 255 , 255,136 
25236 = 255 , 255 , 255 , 255 , 255 , 255,142 
25242 = 255 , 255 , 255 , 255 , 255 , 255, 148 
25248 = 255 , 255 , 255 , 255 , 255 , 255, 154 
25254 = 255 , 255 , 170 , 170 , 171 , 171,078 
25260 = 171 , 171 , 171 , 171 , 170 , 170, 172 
25266 = 255 , 153 , 102 , 153 , 102 , 155,074 
25272 = 170 , 170 , 255 , 153 , 102 , 153,163 
25278 = 102 , 255 , 170 , 170 , 255 , 153,015 
25284 = 102 , 153 , 102 , 217 , 170 , 170,086 
25290 = 234 , 250 , 122 , 186 , 122 , 186,022 
25296 = 191 , 175 , 175 , 171 , 170 , 170,236 
25302 = 170 , 170 , 170 , 234 , 250 , 254,182 
25308 = 254 , 127 , 127 , 095 , 170 , 170,139 
25314 = 170 , 170 , 170 , 170 , 234 , 250,110 
25320 = 255 , 255 , 255 , 255 , 255 , 255,226 
25326 = 255 , 255 , 255 , 255 , 255 , 255,232 
25332 = 255 , 255 , 255 , 255 , 255 , 255,238 
25338 = 255 , 255 , 255 , 255 , 255 , 255,244 
25344 = 255 , 255 , 255 , 255 , 255 , 255,250 
25350 = 255 , 255 , 255 , 255 , 255 , 255, 000 
25356 = 255 , 255 , 255 , 255 , 255 , 255,006 
25362 = 255 , 255 , 255 , 255 , 255 , 255,012 
25368 = 255 , 255 , 255 , 255 , 255 , 255,018 
25374 = 255 , 255 , 255 , 255 , 255 , 255,024 
25380 = 255 , 255 , 255 , 255 , 255 , 255, 030 
25386 = 255 , 255 , 255 , 255 , 255 , 255,036 
25392 = 255 , 255 , 255 , 255 , 255 , 255,042 
25398 = 255 , 255 , 255 , 255 , 255 , 255,048 
25404 = 255 , 255 , 255 , 255 , 255 , 255,054 
25410 = 255 , 255 , 255 , 255 , 255 , 255,060 
25416 = 255 , 255 , 255 , 255 , 255 , 255,066 
25422 = 255 , 255 , 255 , 255 , 255 , 255,072 
25428 = 255 , 255 , 255 , 255 , 170 , 170,164 
25434 = 170 , 170 , 170 , 170 , 171 , 189,106 
25440 = 170 , 170 , 170 , 170 , 171 , 171,094 
25446 = 175 , 237 , 171 , 173 , 189 , 213, 236 
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25452 : 085 , 085 , 085 , 085 , 213 , 085, 234 
25458 : 085 , 085 , 085 , 085 , 085 , 085, 112 
254 64 : 170 , 170 , 170 , 170 , 170 , 170, 116 
25470 : 170 , 170 , 170 , 170 , 170 , 170 , 122 
2547 6 : 170 , 170 , 170 , 170 , 090 , 085,219 
25482 : 085 , 085 , 085 , 085 , 085 , 085 , 136 
25488 : 170 , 234 , 250 , 094 , 087 , 087 , 042 
254 94 : 085 , 085 , 170 , 170 , 170 , 170,232 
25500 : 170 , 171 , 239 , 237 , 170 , 170,033 
25506 : 170 , 170 , 170 , 250 , 0 94 , 087, 07 9 
25512 : 255 , 255 , 255 , 255 , 255 , 255 , 162 
25518 : 255 , 255 , 171 , 171 , 171 , 171,088 
25524 : 171 , 171 , 171 , 171 , 252 , 252, 088 
25530 : 252 , 252 , 252 , 252 , 252 , 252 , 162 
25536 : 0 63 , 063 , 0 63, 0 63, 0 63 , 063, 058 
25542 : 0 63 , 063 , 170 , 170 , 170 , 170,236 
25548 : 170 , 234 , 250 , 254 , 255 , 255, 086 
25554 : 255 , 255 , 255 , 255 , 255 , 255, 204 
25560 : 255 , 255 , 255 , 255 , 255 , 255, 210 
25566 : 255 , 255 , 255 , 255 , 255 , 255, 216 
25572 : 255 , 255 , 255 , 255 , 171 , 171, 054 
25578 : 171 , 171 , 171 , 171 , 171 , 171, 236 
25584 : 155 , 103 , 155 , 103 , 155 , 102, 245 
25590 : 153 , 102 , 170 , 170 , 170 , 170, 157 
25596 : 255 , 153 , 102 , 153 , 230 , 217,082 
25602 : 230 , 217 , 230 , 159 , 110 , 158,082 
25608 : 122 , 18 6 , 122 , 186 , 122 , 234, 212 
25614 : 170 , 170 , 255 , 255 , 255 , 255, 0 94 
25620 : 255 , 255 , 255 , 255 , 171 , 170,101 
2562 6 : 170 , 170 , 170 , 170 , 170 , 170,022 
25632 : 250 , 254 , 255 , 127 , 095 , 095 , 084 
25638 : 087 , 085 , 170 , 170 , 170 , 170 , 122 
25644 : 234 , 250 , 254 , 254 , 255 , 255, 010 
25650 : 255 , 255 , 255 , 255 , 255 , 255, 044 
25656 : 255 , 255 , 255 , 255 , 255 , 255, 050 
25662 : 255 , 255 , 255 , 255 , 255 , 255, 056 
25668 : 255 , 255 , 255 , 255 , 255 , 255, 062 
25674 : 255 , 255 , 255 , 255 , 255 , 255 , 068 
25680 : 255 , 255 , 255 , 255 , 255 , 255 , 074 
25686 : 255 , 255 , 255 , 255 , 255 , 255, 080 
25692 : 255 , 255 , 255 , 255 , 255 , 255 , 08 6 
25698 : 255 , 255 , 255 , 255 , 255 , 255, 0 92 
25704 : 255 , 255 , 255 , 255 , 255 , 255 , 0 98 
25710 : 255 , 255 , 255 , 255 , 255 , 255 , 104 
25716 : 255 , 255 , 255 , 255 , 255 , 255, 110 
25722 : 255 , 255 , 255 , 255 , 255 , 255, 116 
25728 : 255 , 255 , 255 , 255 , 255 , 255, 122 
25734 : 255 , 255 , 255 , 255 , 255 , 255, 128 
25740 : 255 , 255 , 255 , 255 , 170 , 170,220 
25746 : 171 , 171 , 171 , 171 , 171 , 171, 148 
25752 -. 213 , 213 , 087 , 093 , 117 , 117,224 
25758 : 117, 0 93 , 105 , 085 , 085 , 14 9 , 024 
257 64 : 085 , 085 , 085 , 085 , 170 , 170 , 07 6 
25770 : 170 , 170 , 170 , 170 , 170 , 170 , 166 
2577 6 : 085 , 101 , 169 , 169 , 169 , 101, 202 
25782 : 085 , 085 , 170 , 170 , 170 , 170 , 008 
25788 : 170 , 170 , 170 , 170 , 170 , 170, 184 
257 94 : 170 , 170 , 170 , 170 , 170 , 170 , 190 
25800 : 085 , 101 , 169 , 169 , 169 , 101 , 22 6 
25806 : 085 , 085 , 170 , 170 , 170 , 170,032 


25812 : 170 , 170 , 170 , 170 , 101 , 085,054 
25818 : 085 , 08 6 , 085 , 085 , 085 , 089,221 
25824 : 085 , 085 , 165 , 08 9 , 08 9 , 089, 058 
25830 : 101 , 149 , 234 , 122 , 122 , 122,056 
25836 : 122 , 122 , 122 , 234 , 171 , 171 , 154 
25842 : 171 , 171 , 171 , 171 , 171 , 171,244 
25848 : 252 , 252 , 252 , 252 , 252 , 252, 224 
25854 : 252 , 252 , 063 , 063, 0 63 , 063,242 
25860 : 0 63, 0 63, 0 63 , 063 , 255 , 191, 190 
25866 : 175 , 171 , 171 , 170 , 170 , 170,013 
25872 : 085 , 213 , 213 , 245 , 253 , 255, 000 
25878 : 191 , 175 , 170 , 170 , 170 , 170, 044 
25884 : 170 , 170 , 170 , 234 , 255 , 255,002 
25890 : 255 , 255 , 255 , 255 , 255 , 255, 028 
25896 : 171 , 171 , 171 , 17 1 , 171 , 171, 042 
25902 : 171 , 171 , 153 , 103 , 155 , 103, 134 
25908 : 155 , 103 , 155 , 103 , 102 , 255, 157 
25914 : 170 , 170 , 170 , 170 , 170 , 170, 054 
25920 : 159 , 230 , 217 , 230 , 217 , 230, 067 
25926 : 217 , 230 , 234 , 18 6 , 122 , 186,221 
25932 : 122 , 186 , 122,18 6 , 255 , 255 , 178 
25938 : 255 , 255 , 255 , 255 , 255 , 255, 076 
25944 : 255 , 255 , 255 , 255 , 255 , 255, 082 
25950 : 255 , 255 , 255 , 255 , 255 , 255, 088 
25956 : 255 , 255 , 255 , 255 , 191 , 191 , 222 
25962 : 175 , 171 , 170 , 170 , 170 , 170 , 108 
25968 : 170 , 234 , 250 , 250 , 254 , 255, 245 
25974 : 127, 0 95 , 170 , 170 , 170 , 170,252 
25980 : 170 , 170 , 234 , 234 , 255 , 255 , 162 
25986 : 255 , 255 , 255 , 255 , 255 , 255, 124 
25992 : 255 , 255 , 255 , 255 , 255 , 255, 130 
25998 : 255 , 255 , 255 , 255 , 255 , 255 , 136 
26004 : 255 , 255 , 255 , 255 , 255 , 255, 142 
2 6010 : 255 , 255 , 255 , 255 , 255 , 255, 148 
26016 : 255 , 255 , 255 , 255 , 255 , 255, 154 
26022 : 255 , 255 , 255 , 255 , 255 , 255, 160 
26028 : 255 , 255 , 255 , 255 , 255 , 255, 166 
26034 : 255 , 255 , 255 , 255 , 255 , 255, 172 
26040 : 255 , 255 , 255 , 255 , 255 , 255, 178 
2 6046 : 255 , 255 , 255 , 255 , 255 , 255 , 184 
26052 : 255 , 255 , 255 , 255 , 255 , 255 , 190 
26058 : 255 , 255 , 255 , 255 , 255 , 255, 196 
2 6064 : 171 , 170 , 170 , 170 , 170 , 170,205 
26070 : 170 , 170 , 086 , 149 , 149 , 229,143 
26076 : 249 , 250 , 255 , 255 , 101 , 149, 199 
2 6082 : 085 , 085 , 085 , 149 , 229 , 229 , 064 
2 6088 : 170 , 170 , 170 , 170 , 170 , 170,228 
2 60 94 : 170 , 170 , 170 , 170 , 170 , 170, 234 
26100 : 170 , 170 , 170 , 170, 0 90 , 106, 096 
26106 : 106 , 106 , 090 , 08 6 , 08 6 , 086 , 042 
26112 : 213 , 245 , 245 , 245 , 213 , 085, 222 
26118 : 085 , 085 , 170 , 170 , 170 , 170,088 
26124 : 170 , 170 , 170 , 170 , 170 , 170,008 
26130 : 170 , 170 , 170 , 170 , 170 , 170,014 
26136 : 086 , 085 , 085 , 085 , 085 , 086 , 024 
26142 : 086 , 08 6 , 085 , 086 , 08 6 , 091 , 038 
26148 : 175 , 255 , 255 , 255 , 234 , 170, 100 
26154 : 170 , 170 , 170 , 170 , 170 , 170,038 
26160 : 171 , 171 , 171 , 171 , 171 , 171, 050 
2 6166 : 171 , 171 , 252 , 252 , 252 , 252 , 124 
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26172 : 252 , 252 , 252 , 252 , 063 , 063 , 170 
26178 : 063 , 063, 0 63 , 063 , 063 , 063, 188 
26184 : 255 , 255 , 255 , 255 , 255 , 255, 0 66 
26190 : 255 , 255 , 175 , 171 , 170 , 170,250 
2 6196 : 170 , 170 , 170 , 170 , 245 , 245, 230 
2 6202 : 253 , 255 , 191 , 175 , 175 , 171,030 
26208 : 170 , 170 , 170 , 170 , 170 , 234, 156 
26214 : 250 , 254 , 171 , 171 , 171 , 171, 010 
2 6220 : 171 , 171 , 171 , 17 1 , 155 , 103, 026 
26226 : 155 , 102 , 153 , 102 , 153 , 255, 010 
26232 : 170 , 170 , 255 , 153 , 102 , 153,099 
26238 : 102 , 255 , 230 , 217 , 230 , 153, 033 
26244 : 102 , 153 , 102 , 255 , 122 , 186 , 028 
2 6250 : 122, 18 6 , 122, 18 6 , 250 , 234,214 
26256 : 255 , 255 , 255 , 255 , 255 , 255, 138 
26262 : 255 , 255 , 255 , 255 , 255 , 255, 144 
26268 : 255 , 255 , 255 , 255 , 255 , 255, 150 
26274 : 255 , 255 , 255 , 255 , 255 , 255, 156 
2 6280 : 255 , 255 , 255 , 255 , 255 , 255, 162 
2 628 6 : 255 , 255 , 171 , 171 , 170 , 170,08 6 
26292 : 170 , 170 , 170 , 170 , 250 , 254 , 084 
26298 : 255 , 127 , 095 , 095 , 087 , 085 , 162 
26304 : 170 , 170 , 170 , 170 , 234 , 250,076 
26310 : 250 , 254 , 255 , 255 , 255 , 255, 18 6 
26316 : 255 , 255 , 255 , 255 , 255 , 255, 198 
2 6322 : 255 , 255 , 255 , 255 , 255 , 255, 204 
26328 : 255 , 255 , 255 , 255 , 255 , 255 , 210 
26334 : 255 , 255 , 255 , 255 , 255 , 255, 216 
2 6340 : 255 , 255 , 255 , 255 , 255 , 255 , 222 
26346 : 255 , 255 , 255 , 255 , 255 , 255, 228 
26352 : 255 , 255 , 255 , 255 , 255 , 255, 234 
26358 : 255 , 255 , 255 , 255 , 255 , 255, 240 
26364 : 255 , 255 , 255 , 255 , 255 , 255, 246 
26370 : 255 , 255 , 255 , 255 , 255 , 255, 252 
26376 : 255 , 255 , 255 , 255 , 255 , 255 , 002 
26382 : 255 , 255 , 255 , 255 , 255 , 255, 008 
26388 : 255 , 255 , 255 , 255 , 085 , 085, 186 
26394 : 085 , 085 , 085 , 087 , 095 , 250,201 
26400 : 186 , 174 , 174 , 171 , 191 , 213 , 117 
2 6406 : 085 , 085 , 085 , 085 , 085 , 085, 036 
2 6412 : 149 , 149 , 149 , 233 , 170 , 170, 040 
2 6418 : 170 , 170 , 170 , 170 , 170 , 170, 046 
26424 : 08 6 , 08 6 , 086 , 150 , 105 , 085 , 142 
2 6430 : 085 , 085 , 085 , 085 , 085 , 08 9, 064 
26436 : 165 , 085 , 085 , 085 , 170 , 170, 060 
26442 : 170 , 170 , 170 , 170 , 170 , 170,070 
26448 : 085 , 085 , 085 , 085 , 085 , 085 , 078 
26454 : 090 , 111 , 08 9 , 105 , 101 , 101 , 171 
2 6460 : 170 , 171 , 255 , 255 , 085 , 085, 08 9 
2 6466 : 085 , 085 , 245 , 173 , 17 1 , 170, 003 
2 6472 : 170 , 170 , 170 , 170 , 170 , 170, 100 
26478 : 170 , 234 , 171 , 171 , 171 , 171 , 17 4 
26484 : 171 , 171 , 171 , 171 , 252 , 252,024 
26490 : 252 , 252 , 252 , 252 , 252 , 252, 098 
26496 : 063 , 063 , 063 , 063 , 063 , 063, 250 
26502 .- 063,0 63 , 255 , 255 , 255 , 255,000 
26508 : 255 , 255 , 255 , 255 , 255 , 255, 134 
26514 : 255 , 255 , 255 , 255 , 255 , 255, 140 
26520 : 255 , 255 , 255 , 255 , 255 , 255, 146 
26526 .- 255 , 255 , 253 , 191 , 191 , 175,198 


26532 : 171 , 171 , 170 , 170 , 085 , 085,248 
2 6538 : 213 , 2 13 , 2 45 , 253 , 255 , 191, 004 
2 6544 : 255 , 255 , 255 , 255 , 255 , 255, 170 
26550 : 255 , 255 , 255 , 255 , 255 , 255 , 17 6 
26556 : 255 , 255 , 255 , 255 , 255 , 255, 182 
26562 : 255 , 255 , 255 , 255 , 255 , 255, 188 
26568 : 255 , 255 , 255 , 255 , 255 , 255 , 194 
2 6574 : 255 , 255 , 255 , 255 , 255 , 255, 200 
2 6580 : 255 , 255 , 255 , 255 , 170 , 170, 036 
2 658 6 : 170 , 171 , 171 , 171 , 171 , 171,219 
2 6592 : 170 , 170 , 170 , 255 , 085 , 085, 135 
2 6598 : 085 , 085 , 170 , 170 , 170 , 255,141 
2 6604 : 085 , 085 , 085 , 085 , 170 , 170 , 148 
2 6610 : 170 , 255 , 085 , 085 , 085 , 085, 239 
2 6616 : 170 , 170 , 170 , 250 , 122 , 122,228 
26622 : 122 , 122 , 255 , 191 , 175 , 171, 010 
26628 : 171 , 170 , 170 , 170 , 170 , 234,065 
26634 : 234 , 250 , 254 , 255 , 127 , 095,201 
2 6640 : 170 , 170 , 170 , 170 , 170 , 170 , 012 
2 6646 : 170 , 234 , 255 , 255 , 255 , 255, 166 
2 6652 : 255 , 255 , 255 , 255 , 255 , 255, 022 
2 6658 : 255 , 255 , 255 , 255 , 255 , 255, 028 
26664 : 255 , 255 , 255 , 255 , 255 , 255, 034 
26670 : 255 , 255 , 255 , 255 , 255 , 255, 040 
26676 : 255 , 255 , 255 , 255 , 255 , 255, 046 
2 6682 : 255 , 255 , 255 , 255 , 255 , 255, 052 
2 6688 : 255 , 255 , 255 , 255 , 255 , 255, 058 
26694 : 255 , 255 , 255 , 255 , 255 , 255 , 064 
26700 : 255 , 255 , 255 , 255 , 087 , 094, 253 
26706 : 094 , 126 , 122 , 122 , 122 , 234,134 
26712 : 255 , 255 , 255 , 255 , 255 , 255, 082 
26718 : 255 , 255 , 255 , 255 , 255 , 255, 088 
2 6724 : 255 , 255 , 255 , 255 , 254 , 255, 093 
2 6730 : 255 , 254 , 248 , 226 , 224 , 248, 025 
2 6736 : 250, 0 95 , 085 , 245 , 015 , 240, 018 
2 6742 : 252 , 003 , 085 , 149 , 229 , 250, 0 62 
2 6748 : 255 , 170 , 032 , 160 , 085 , 090, 148 
2 6754 : 111 , 190 , 232 , 130 , 160 , 042,227 
267 60 : 234, 14 9 , 106 , 128 , 042 , 168,195 
267 66 : 002 , 170 , 234 , 170 , 170 , 250,114 
26772 : 014 , 014 , 250 , 170 , 255 , 255, 082 
26778 : 255 , 255 , 255 , 255 , 255 , 255, 148 
26784 : 255 , 255 , 255 , 255 , 255 , 255, 154 
267 90 : 255 , 255 , 229 , 22 9 , 24 9 , 249, 096 
2 6796 : 24 9 , 254 , 254 , 254 , 171 , 171,245 
2 6802 : 171 , 171 , 171 , 171 , 171 , 171 , 180 
26808 : 252 , 252 , 252 , 252 , 252 , 252 , 160 
2 6814 : 252 , 252 , 063, 0 63, 0 63 , 063 , 178 
26820 : 063 , 063 , 063 , 063 , 255 , 255, 190 
26826 : 255 , 255 , 255 , 255 , 255 , 255 , 196 
26832 : 255 , 255 , 255 , 255 , 255 , 255, 202 
2 6838 : 255 , 255 , 255 , 255 , 255 , 255, 208 
2 6844 : 255 , 255 , 255 , 255 , 255 , 255, 2 14 
26850 : 255 , 255 , 255 , 255 , 255 , 255, 220 
2 6856 : 175 , 175 , 171 , 170 , 170 , 170,239 
2 68 62 : 170 , 170 , 213 , 245 , 245 , 253,254 
2 68 68 : 255 , 191 , 175 , 175 , 170 , 170,100 
2 6874 : 170 , 170 , 170 , 170 , 234 , 250,134 
2 6-880 : 255 , 255 , 255 , 255 , 255 , 255, 250 
26886 : 255 , 255 , 255 , 255 , 255 , 255 , 000 
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26892 : 255 , 255 , 255 , 255 , 255 , 255, 006 
26898 : 255 , 255 , 255 , 255 , 255 , 255, 012 
26904 : 171 , 171 , 171 , 171 , 171 , 171, 026 
26910 : 171 , 171 , 255 , 255 , 255 , 255, 112 
2 6916 : 255 , 255 , 255 , 255 , 085 , 085,202 
2 6922 : 095, 0 94 , 094 , 094 , 095 , 085, 087 
2 6928 : 085 , 085 , 255 , 170 , 170 , 170, 215 
2 6934 : 254 , 094 , 122 , 122 , 250 , 170, 042 
2 6940 : 170 , 170 , 170 , 170 , 255 , 255,226 
2 6946 : 255 , 255 , 255 , 255 , 255 , 255, 060 
26952 : 175 , 171 , 170 , 170 , 170 , 170, 074 
26958 : 170 , 170 , 250 , 254 , 254 , 127,023 
2 6964 : 127 , 095 , 087 , 085 , 170 , 170,050 
2 6970 : 170 , 170 , 234 , 250 , 250 , 254, 138 
2697 6 : 255 , 255 , 255 , 255 , 255 , 255, 090 
26982 : 255 , 255 , 255 , 255 , 255 , 255, 096 
26988 : 255 , 255 , 255 , 255 , 255 , 255, 102 
26994 : 255 , 255 , 255 , 255 , 255 , 255, 108 
27000 : 255 , 255 , 255 , 255 , 255 , 255, 114 
27006 : 255 , 255 , 255 , 255 , 255 , 255, 120 
27012 : 255 , 255 , 255 , 255 , 255 , 255 , 12 6 
27018 : 255 , 255 , 255 , 255 , 255 , 255, 132 
27024 : 234 , 234 , 234 , 234 , 234 , 122,156 
27030 : 122 , 122 , 255 , 255 , 255 , 255,134 
27036 : 255 , 255 , 255 , 255 , 255 , 251, 146 
27042 : 238 , 239 , 239 , 251 , 254 , 255 , 102 
27048 : 254 , 255 , 255 , 255 , 255 , 255, 161 
27054 : 191 , 239 , 254 , 170 , 170 , 170,088 
27060 : 171 , 171 , 171 , 172 , 234 , 224, 043 
27066 : 138 , 138 , 04 6 , 046 , 046 , 191, 023 
27072 : 250 , 234 , 058 , 058 , 058 , 058, 140 
27078 : 014 , 206 , 255 , 255 , 255 , 255 , 158 
27084 : 255 , 255 , 255 , 255 , 254 , 251, 193 
27090 : 255 , 255 , 255 , 254 , 251 , 239 , 183 
27096 : 255 , 191 , 191 , 191 , 191 , 255,210 
27102 : 255 , 255 , 255 , 255 , 255 , 255, 216 
27108 : 255 , 255 , 255 , 255 , 254 , 254, 220 
27114 : 254 , 249 , 249 , 249 , 249 , 249, 197 
27120 : 171 , 171 , 171 , 17 1 , 171 , 171, 242 
27126 : 171 , 171 , 252 , 252 , 252 , 252, 060 
27132 : 252 , 252 , 252 , 252 , 063, 0 63, 106 
27138 : 063 , 063 , 063 , 063 , 063, 0 63, 124 
27144 : 255 , 255 , 255 , 255 , 255 , 255 , 002 
27150 : 255 , 255 , 255 , 255 , 255 , 255, 008 
27156 : 255 , 255 , 255 , 255 , 255 , 255, 014 
27162 : 255 , 255 , 255 , 255 , 255 , 255, 020 
27168 : 255 , 255 , 255 , 255 , 255 , 255, 026 
27174 : 255 , 255 , 255 , 255 , 255 , 255, 032 
27180 : 255 , 255 , 255 , 255 , 171 , 170 , 125 
2718 6 : 170 , 170 , 170 , 170 , 170 , 170,04 6 
27192 : 253 , 253 , 191 , 191 , 175 , 171,010 
27198 : 171 , 170 , 170 , 170 , 170 , 234 , 123 
27204 : 234 , 250 , 254 , 255 , 255 , 255, 035 
27210 : 255 , 255 , 255 , 255 , 255 , 255, 068 
27216 : 255 , 255 , 255 , 255 , 255 , 255, 074 
27222 : 255 , 255 , 171 , 171 , 171 , 171,000 
27228 : 171 , 17 1 , 171 , 171 , 255 , 255 , 00 6 
27234 : 255 , 255 , 255 , 255 , 255 , 255, 092 
27240 : 085 , 085 , 085 , 127 , 122 , 122, 218 
27246 : 122 , 122 , 094,0 94,0 94 , 254,122 


27252 : 170 , 170 , 170 , 170 , 255 , 255, 026 
27258 : 255 , 255 , 255 , 255 , 255 , 255, 116 
272 64 : 255 , 255 , 255 , 255 , 255 , 255 , 122 
27270 : 255 , 255 , 255 , 255 , 255 , 255, 128 
27276 : 255 , 255 , 255 , 255 , 255 , 255, 134 
27282 : 255 , 255 , 255 , 255 , 255 , 255, 140 
27288 : 255 , 191 , 175 , 171 , 171 , 170, 005 
272 94 : 170 , 170 , 170 , 234 , 234 , 250, 106 
27300 : 254 , 254 , 127 , 127 , 170 , 170,242 
2730 6 : 170 , 170 , 170 , 170 , 170 , 234,230 
27312 : 255 , 255 , 255 , 255 , 255 , 255, 170 
27318 : 255 , 255 , 255 , 255 , 255 , 255, 176 
27324 : 255 , 255 , 255 , 255 , 255 , 255, 182 
27330 : 255 , 255 , 255 , 255 , 255 , 255, 188 
27336 : 255 , 255 , 255 , 255 , 255 , 255, 194 
27342 : 255 , 255 , 122 , 122 , 126 , 094, 156 
27348 : 094 , 127 , 123 , 122 , 255 , 255 , 164 
27354 : 255 , 255 , 255 , 254 , 251 , 175, 127 
27360 : 255 , 255 , 254 , 251 , 175 , 255, 133 
27366 : 250 , 229 , 235 , 187 , 254 , 250,099 
27372 : 230 , 149 , 085 , 085 , 248 , 226,235 
27378 : 235 , 255 , 255 , 191 , 191 , 191, 024 
27384 : 234 , 170 , 170 , 170 , 170 , 191, 073 
27390 : 187 , 191 , 195 , 179 , 179 , 174, 079 
27396 : 170 , 170 , 170 , 170 , 255 , 254 , 169 
27402 : 251 , 230 , 229 , 149 , 149 , 149, 143 
27408 : 234, 18 6 , 175 , 170 , 234 , 126 , 117 
27414 : 087 , 085 , 255 , 255 , 255 , 191, 126 
27420 : 239 , 250 , 191 , 111 , 255 , 255, 049 
27426 : 255 , 255 , 255 , 254 , 171 , 251, 195 
27432 : 249 , 229 , 229 , 149 , 14 9 , 149,170 
27 438 : 22 9 , 229 , 171 , 171 , 171 , 171 , 164 
27444 : 171 , 171 , 171 , 171 , 252 , 252, 216 
27450 : 252 , 252 , 252 , 252 , 252 , 252, 034 
27456 : 0 63, 0 63, 0 63 , 063, 0 63 , 063 , 186 
27462 : 063 , 063 , 255 , 255 , 255 , 255, 192 
27468 : 255 , 255 , 255 , 255 , 255 , 255, 070 
27474 : 255 , 255 , 255 , 255 , 255 , 255, 076 
27480 : 255 , 255 , 255 , 255 , 255 , 255, 082 
27486 : 255 , 255 , 255 , 255 , 255 , 255, 088 
27492 : 255 , 255 , 255 , 255 , 255 , 255, 094 
27498 : 255 , 255 , 255 , 255 , 255 , 255, 100 
27504 : 255 , 255 , 255 , 255 , 255 , 255, 106 
27510 : 255 , 255 , 255 , 255 , 255 , 255, 112 
27516 : 255 , 255 , 255 , 255 , 191 , 175,230 
27522 : 175 , 171 , 170 , 170 , 170 , 170 , 132 
27528 : 085 , 213 , 245 , 245 , 253 , 255 , 152 
27534 : 191 , 175 , 170 , 170 , 170 , 170,164 
27540 : 170 , 170 , 170 , 234 , 171 , 171,210 
2754 6 : 171 , 171 , 171 , 171 , 171 , 171 , 156 
27552 : 255 , 255 , 255 , 255 , 255 , 255, 154 
27558 : 255 , 255 , 122 , 127 , 085 , 085,071 
27564 : 085 , 085 , 085 , 085 , 170 , 255 , 169 
27570 : 085 , 085 , 085 , 085 , 085 , 085 , 176 
27576 : 170 , 250 , 122 , 122 , 122 , 122,068 
27582 : 122 , 122 , 255 , 255 , 255 , 255, 174 
27588 : 255 , 255 , 255 , 255 , 255 , 255, 190 
27594 : 255 , 255 , 255 , 255 , 255 , 255, 196 
27 600 : 255 , 255 , 255 , 255 , 255 , 255, 202 
27 606 : 255 , 255 , 255 , 255 , 255 , 255, 208 
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OK-LIST 


S appiamo tutti quanto sia diffici- 
le digitare correttamente un pro- 
gramma (ovviamente, se non si di- 
spone della cassetta allegata alla rivi- 
sta!). Errori di digitazione anche ba- 
nali possono provocare il malfunzio- 
namento del programma stesso o 
anche il blocco completo del compu- 
ter, obbligando a riprendere da ca- 
po tutto il lavoro. 

OK-LIST è un particolare program- 
ma in grado di intercettare gli errori 
commessi durante la digitazione di 
uno dei listati da noi pubblicati, e di 
segnalarveli. 

Digitate il listato pubblicato in que- 
sta pagina (attenzione a non com- 
mettere errori: OK-LIST non può 
controllare se stesso!) e quindi salva- 
telo su nastro o disco. 

Quando dovrete accingervi a digita- 
re uno dei nostri programmi in BA- 
SIC, caricate per prima cosa OK- 
LIST e dategli il RUN: dopo una bre- 
ve attesa, necessaria a inserire in 
memoria una routine in linguaggio 
macchina, comparirà sullo schermo il 
messaggio "OK-LIST ATTIVATO". 


Potete a questo punto iniziare a rico- 
piare il programma BASIC prescelto, 
evitando di digitare la "rem" seguita 
da un numero che compare al termi- 
ne di ogni linea. Come vedrete, alla 
pressione di RETURN apparirà un 
numero nell'angolo superiore sini- 
stro dello schermo; confrontatelo 
con quello riportato dopo la "rem" 
sul listato: se è diverso, avete com- 
messo un errore nel digitare quella li- 
nea di programma. 

OK-LIST non verifica gli spazi all'in- 
terno di una linea di istruzione: se 
tutti i checksum (così vengono chia- 
mati i numerini di controllo visualizza- 
ti da OK-LIST) sono corretti, e il pro- 
gramma genera invece delle videa- 
te 'spezzettate', probabilmente ave- 
te dimenticato o aggiunto qualche 
spazio di troppo all'interno delle vir- 
golette di una istruzione PRINT. 
Inoltre, OK-LIST non è in grado di 
controllare la sequenza con la quale 
vengono digitati i caratteri aH'interno 
di un'istruzione; ciò è particolarmen- 
te pericoloso nel caso delle istruzio- 
ni DATA contenenti molti numeri. 
Ad esempio, digitando 220 dove an- 
drebbe digitato 202, non si verifica 
alcuna variazione nel checksum, pur 
avendo commesso un errore; consi- 


gliamo quindi di porre grande atten- 
zione nel digitare tale tipo di istru- 
zioni. 

Un’ultima avvertenza sull'utilizzo di 
OK-LIST riguarda le abbreviazioni 
delle istruzioni BASIC: esse non 
vengono riconosciute da OK-LIST e 
generano pertanto un checksum dif- 
ferente. Se si utilizza OK-LIST, le 
istruzioni BASIC dovranno quindi es- 
sere digitate per intero. 

Data la sua posizione in memoria (il 
buffer del registratore), OK-LIST in- 
terferisce con ogni operazione con 
l'unità a cassette. Per questo moti- 
vo prima di effettuare un SAVE su 
nastro OK-LIST dovrà essere pre- 
ventivamente disabilitato attraverso 
la pressione di RUN/STOP e RE- 
STORE. 

Non è possibile effettuare operazio- 
ni di LOAD da cassetta senza cancel- 
lare OK-LIST dalla memoria. 

Queste limitazioni non sono invece 
presenti, se si utilizza il disk drive co- 
me memoria di massa. 

Nel caso si prema accidentalmente 
RUN/STOP e RESTORE durante l'u- 
tilizzo di OK-LIST, esso potrà esse- 
re riattivato digitando SYS886. 

Buon lavoro! 


10 PRINT" {CLR} ATTENDERE PREGO..." 

1 1 FORI = 886TOl 0 1 8 : READA:CK=CK+A: POKEI , A: N 
EXT 

12 IF CROI 7539 THEN PRINT" {GIU ' JERRORE N 
ELLE ISTRUZIONI DATA": END 

13 SYS886: PRINT" {CLR} { 2 GIU'}OK-LIST ATT 
I VATO . " : NEW 

14 DATAI 73,036,003,201 ,1 50, 208 

15 DATA001 ,096,1 41 ,1 51 ,003,1 73 

16 DATA037, 003, 1 41 ,1 52,003,169 

17 DATA150, 141 ,036,003,169,003 

18 DATA141 ,037,003,169,000,133 

19 DATA254 ,096,032,087,241 ,133 

20 DATA251 ,134,252,132,253,008 

21 DATA201 ,01 3,240,01 7,201 ,032 

22 DATA240,005,024, 1 01 ,254, 1 33 

23 DATA254, 165, 251 ,166,252,164 

24 DATA2 53 ,040, 096, 1 69,01 3, 032 

25 DATA21 0,255,165,214,141 ,251 

26 DATA003, 206, 251 ,003,169,000 

27 DATAI 33,216,169,019,032,210 

28 DATA255 ,169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA254 ,169,000,133,254,172 

31 DATAI 51 , 003, Ì92, 087, 208, 006 

32 DATA032,205, 189,076,235,003 

33 DATA032, 205, 221 ,1 69,032,032 

34 DATA210, 255, 032, 210, 255,1 73 

35 DATA25 1 ,003,1 33,21 4,076,1 73 

36 DATA003 
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27612 :255, 255, 255, 255, 175, 171, 
27618 :170, 170, 170, 170, 170, 170, 
27624 :250,250,254,255,127,095, 
27630 :087, 087, 170, 170, 170, 170, 
27636 :234, 234, 250, 254, 255, 255, 
27642 .-255,255,255,255,255,255, 
27648 :255, 255, 255, 255, 255, 255, 
27654 :255, 255, 255, 255, 254, 254, 
27660 : 254, 255, 255, 255, 127, 127, 
27666 :255,255,255,095,151,149, 
27672 :239, 250, 254, 255, 255, 255, 
27678 :254, 249, 234, 170, 170, 234, 
27684 :127, 250, 170, 170, 255, 254, 
27690 :254, 233, 149, 165, 249, 254, 
27696 :234, 170, 170, 170, 170, 170, 
27702 :170, 170, 255, 255, 255, 234, 
27708 :238, 234, 255, 255, 255, 255, 
27714 :255, 255, 255, 255, 255, 255, 
27720 :234, 122, 122, 094, 087, 085, 
27726 :085, 085, 255, 255, 255, 255, 
27732 : 191, 106, 107, 191,250,255, 
27738 :254, 249, 165, 149, 234, 254, 
27744 :239, 191,255,255,255,254, 
27750 :254, 249, 249, 249, 229, 229, 
27756 :149, 149, 101, 101, 171,171, 
27762 :171, 171, 171, 171, 171, 171, 
27768 :252, 252, 252, 252, 252, 252, 
27774 :252, 252, 063, 063, 063, 063, 
27780 :063, 063, 063, 063,255,255, 
27786 :255, 255, 255, 255, 255, 255, 
27792 :255, 255, 255, 255, 255, 255, 
27798 :255, 255, 255, 255, 255, 255, 
27804 :255, 255, 255, 255, 255, 255, 
27810 :255, 255, 255, 255, 255, 255, 
27816 :255, 255, 255, 255, 255, 255, 
27822 :255, 255, 255, 255, 255, 255, 
27828 :255, 255, 255, 255, 255, 255, 
27834 :255, 255, 255, 255, 255, 255, 
27840 :255, 255, 255, 255, 255, 255, 
27846 :255, 255, 175, 171, 170, 170, 
27852 :170, 170, 170, 170, 245, 253, 
27858 :253, 191, 191, 175, 171, 171, 
27864 :171, 170, 170, 170, 234, 234, 
27870 :250, 254, 255, 170, 170, 170, 
27876 :170, 170, 170, 170,255, 170, 
27882 :170, 170, 170, 170, 170, 170, 
27888 :255, 170, 170, 170, 170, 170, 
27894 :170, 170,250, 170, 170, 170, 
27900 :170, 170, 170, 170, 255, 255, 
27906 :255, 255, 255, 255, 255, 255, 
27912 :255, 255, 255, 255, 255, 255, 
27918 :255, 255, 255, 255, 255, 255, 
27924 :255,255,255,255,170,170, 
27930 :170, 170, 170, 170, 255, 217, 
27936 :170, 170, 170, 170, 170, 170, 
27942 :250, 186, 255, 255, 255, 255, 
27948 :255, 255, 255, 255, 255, 191, 
27954 :175, 175, 171, 170, 170, 170, 
27960 :170, 170, 234, 250, 254, 254, 
27966 :127, 127, 170, 170, 170, 170, 
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27 972 : 170, 170, 170,234,255,255,042 
27 978 : 255, 255, 255, 255, 255, 255, 068 
27 984 : 122, 122, 122, 122, 094, 094, 244 
27 990 : 087, 085,171,23 9,239,239, 122 
27 996 : 239, 190, 190, 190, 255, 255, 131 
28002 : 250, 234, 170, 170,170, 170,238 
28008 : 254, 254, 254, 191, 191,175, 143 
28014 : 175, 171,255, 255, l'91, 191,068 
28020 : 191, 191, 111, 10 6, 255, 234, 180 
2802 6 : 238, 234, 255, 255, 255, 255, 078 
28032 : 255, 255, 255, 255, 255, 255, 122 
28038 : 255, 254, 254, 254, 24 9, 249, 113 
28044 : 24 9, 229, 229, 165,255,255,242 
28050 : 255, 254, 250, 234, 170, 170, 199 
28056 : 255, 255, 255, 191, 175,175,178 
28062 : 171, 171,250,234,234,250,188 
28068 : 186, 18 6, 18 6, 17 4,249,249, 114 
2807 4 : 249, 24 9, 24 9, 22 9, 229, 229, 068 
28080 : 171, 171, 171, 17 1, 171, 171, 178 
28086 : 171, 171,252,252,252,252,252 
28092 : 252, 252, 252, 252, 063, 063, 042 
28098 : 063, 0 63, 0 63, 0 63, 063, 063, 060 
28104 : 255, 255, 255, 255, 255, 255, 194 
28110 : 255, 255, 255, 255, 255, 255, 200 
28116 : 255, 255, 255, 255, 255, 255, 206 
28122 : 255, 255, 255, 255, 255, 255, 212 
28128 :255, 255, 255, 255, 255, 255,218 
28134 : 255, 255, 255, 255, 255, 255, 224 
28140 : 255, 255, 255, 255, 255, 255, 230 
2814 6 : 255, 255, 255, 255, 255, 255, 236 
28152 : 255, 255, 255, 255, 255, 255, 242 
28158 : 255, 255, 255, 255, 255, 255, 248 
28164 : 255, 255, 255, 255, 255, 255, 254 
28170 : 255, 255, 255, 255, 255, 255, 004 
28176 : 255, 255, 255, 255, 255, 255, 010 
28182 : 255, 255, 255, 191,175,175,048 
28188 : 171, 170, 170, 170, 085, 085, 111 
28194 : 213, 245, 245, 253, 255, 191, 156 
28200 : 255, 255, 255, 255, 255, 255, 034 
2820 6 : 255, 255, 255, 255, 255, 255, 040 
28212 : 255, 255, 255, 255, 255, 255, 04 6 
28218 : 255, 255, 255, 255, 255, 255, 052 
28224 : 255, 255, 255, 255, 255, 255, 058 
28230 : 255, 255, 171, 171,171,171,240 
28236 : 171, 171, 171, 171,255,153,144 
28242 : 102, 153, 102, 153, 102, 153, 07 9 
28248 : 230, 153, 102,153, 127,186,015 
28254 : 122, 186, 191, 102, 153, 102, 182 
28260 : 217, 230, 217, 230, 254, 158, 126 
28266 : 110, 158,110, 158, 110,158,142 
28272 :255, 255, 255, 255, 255, 255, 106 
28278 : 255, 255, 175, 171,171, 170,035 
28284 : 170, 170, 170, 170,234,250,008 
28290 :254, 255, 127, 095, 095, 087, 019 
282 96 : 170, 170, 170, 170,170,234,196 
2 8302 : 250, 254, 171, 171, 171,171,050 
28308 : 170, 170, 170, 170,250,250,048 
28314 :250,250,190,190,191,111,056 
28320 .-255,255,255,255,255,255, 154 
28326 : 255, 255, 254, 254, 250, 250, 148 


050 

222 

183 

068 

190 

244 

250 

254 

005 

154 

252 

061 

238 

066 

108 

113 

016 

060 

048 

244 

160 

115 

009 

025 

182 

116 

096 

114 

126 

132 

138 

144 

150 

156 

162 

168 

174 

180 

186 

114 

102 

082 

085 

211 

053 

230 

065 

066 

162 

252 

002 

008 

100 

154 

028 

214 

230 

057 

108 

228 


28332 

: 250 , 250 , 

234, 

235, 

239, 

239, 

083 

28338 

:239, 191, 

191, 

191, 

191, 

255, 

156 

28344 

:255, 170, 

170, 

170, 

170, 

170, 

009 

28350 

:170, 170, 

254, 

170, 

170, 

170, 

014 

28356 

: 170, 170, 

170, 

170, 

239, 

238, 

073 

28362 

: 190, 190, 

190, 

239, 

239, 

239, 

209 

28368 

: 255, 255, 

255, 

255, 

255, 

255, 

202 

28374 

: 255, 191, 

255, 

255, 

255, 

254, 

143 

28380 

: 254, 254, 

254, 

250, 

251, 

250, 

197 

28386 

: 250, 249, 

229, 

229, 

229, 

229, 

105 

28392 

: 250 , 234, 

170, 

170, 

170, 

170, 

116 

28398 

: 170, 170, 

171, 

171, 

171, 

171, 

238 

28404 

: 171, 171, 

171, 

171, 

252, 

252, 

152 

28410 

:252, 252, 

252, 

252, 

252, 

252, 

226 

28416 

: 063, 063, 

063, 

063, 

063, 

063, 

122 

28422 

: 063, 063, 

255, 

255, 

255, 

255, 

128 

28428 

: 255 , 255, 

255, 

255, 

255, 

255, 

006 

28434 

:255, 255, 

255, 

255, 

255, 

255, 

012 

28440 

:255, 255, 

255, 

255, 

255, 

255, 

018 

28446 

: 255, 255, 

255, 

255, 

255, 

255, 

024 

28452 

:255, 255, 

255, 

255, 

170, 

170, 

116 

28458 

: 170,170, 

170, 

171, 

172, 

176, 

047 

28464 

: 170, 170, 

171, 

188, 

192, 

192, 

107 

28470 

: 000, 000, 

175, 

252, 

000, 

** 

O 

o 

o 

225 

28476 

: 000, 000, 

000, 

000, 

255, 

000, 

059 

28482 

: 000, 000, 

000, 

000, 

000, 

000, 

066 

28488 

:234, 254, 

003, 

000, 

000, 

000, 

051 

28494 

: 000, 000, 

170, 

170, 

170, 

250, 

070 

28500 

: 014, 015, 

000, 

000, 

170, 

170, 

197 

28506 

: 170, 170, 

170, 

170, 

234, 

058, 

038 

28512 

: 175, 175, 

171, 

170, 

170, 

170, 

103 

28518 

: 170, 170, 

213, 

245, 

253, 

253, 

126 

28524 

: 191, 191, 

175, 

171, 

170, 

170, 

152 

28530 

: 170, 170, 

170, 

234, 

234, 

250, 

062 

28536 

: 255, 255, 

255, 

255, 

255, 

255, 

114 

28542 

: 255, 255, 

255, 

255, 

255, 

255, 

120 

28548 

:255, 255, 

255, 

255, 

171, 

171, 

214 

28554 

: 171, 171, 

171, 

171, 

171, 

171, 

140 

28560 

:238, 187, 

238, 

187, 

238, 

187, 

139 

28566 

:238, 187, 

122, 

186, 

122, 

191, 

172 

28572 

: 102, 153, 

102, 

153, 

230, 

217, 

089 

28578 

:230, 217, 

102, 

153, 

102, 

153, 

095 

28584 

: 110, 158, 

110, 

158, 

110, 

158, 

204 

28590 

: 110, 158, 

255, 

255, 

255, 

255, 

182 

28596 

:255, 255, 

255, 

255, 

255, 

255, 

174 

28602 

:255, 255, 

255, 

255, 

255, 

255, 

180 

28608 

: 255, 255, 

255, 

255, 

255, 

255, 

186 

28614 

: 255,255, 

254, 

127, 

127, 

095, 

031 

28620 

: 087, 085, 

085, 

085, 

170, 

170, 

118 

28626 

: 234,250, 

250, 

254, 

255, 

127, 

044 

28632 

: 122, 122, 

126, 

087, 

085, 

085, 

075 

28638 

: 085, 213, 

190, 

170, 

170, 

170, 

196 

28644 

: 255, 085, 

085, 

085, 

171, 

171, 

056 

28650 

: 173,253, 

085, 

085, 

085, 

085, 

232 

28656 

: 170,234, 

126, 

087, 

085, 

085, 

003 

28662 

: 085, 085, 

170, 

170, 

170, 

234, 

136 

28668 

: 127, 085, 

085, 

085, 

170, 

170, 

206 

28674 

: 171, 189, 

213, 

085, 

085, 

085, 

062 

28680 

: 251,235, 

155, 

090, 

085, 

085, 

141 

28686 

: 085, 085, 

234, 

250, 

255, 

255, 

154 


28 692 : 191, 10 6,085,085,250,234,203 
28 698 : 170, 171,191,213,085,085, 173 
28704 : 234, 234, 234, 170, 170,170,220 
28710 : 170, 170,255,255,255,255,118 
28716 :255, 255, 255, 255, 171, 171,126 
28722 : 171, 171, 171, 171,171, 171,052 
28728 : 252, 252, 252, 252, 252, 252, 032 
28734 : 252, 252, 063, 063, 063, 063, 050 
28740 : 063, 063, 063, 063, 255, 255, 062 
28746 : 255, 255, 255, 255, 255, 255, 068 
28752 : 255, 255, 255, 255, 255, 255, 074 
28758 : 255, 255, 170,170, 171, 172,255 
28764 : 172, 176, 17 6, 17 9, 170, 186, 127 
28770 : 20 6, 003, 000, 048, 204, 000, 047 
2877 6 : 176, 240, 192, 192, 000, 000,136 
28782 : 000, 000, 000, 000, 000, 000, 110 
28788 : 003, 015,015,015,000,000,164 

287 94 : 000, 000, 000,128, 128,128,250 
28800 : 000, 000, 000, 000, 000, 000, 128 
28806 : 000, 000, 000, 000, 000, 000, 134 
28812 : 003, 015, 015, 015, 000, 000, 188 
28818 : 000, 000, 000, 128, 128, 128, 018 
28824 : 058, 014, 014, 003, 000, 000, 241 
28830 : 000, 000, 191, 240, 192, 000, 013 
28836 : 000, 015, 048, 000, 171, 234, 120 
28842 : 058, 014, 003, 003, 195, 195, 126 
28848 : 253, 255, 191, 175, 175, 171, 116 
28854 : 170, 170, 170, 170,170,234,242 
28860 : 250, 250, 254, 255, 255, 255, 171 

288 66 : 255, 255, 255, 255, 255, 255, 188 
28872 : 171, 171, 171,171,171,171,202 
28878 : 171, 171, 238, 187, 238, 187, 118 
28884 : 238, 187, 238, 187, 255, 234, 015 
288 90 : 234, 234, 234, 234, 234, 234, 086 
28896 : 246, 185, 182,185,182,185, 109 
28 902 : 182, 185, 110, 158,110,158,109 
28908 : 110, 158, 110, 158, 255, 255, 002 
28 914 -.255,255,255,255,255,255,236 
28920 : 255, 255, 255, 255, 255, 255, 242 
28926 : 255, 255, 255, 255, 255, 255, 248 
28932 : 255, 255, 255, 255, 255, 255, 254 
28938 :255, 255, 255, 255, 255, 255, 004 
28944 : 175, 171, 171,170,170,170,019 
28 950 : 170, 170,234,250,254,254,074 
28 956 : 127, 127, 0 95, 087, 170, 170, 036 
28962 : 170, 170, 170,234,250,250,254 
28968 : 255, 255, 255, 255, 255, 255, 034 
28974 : 255, 255, 255, 255, 255, 255, 040 
28980 : 255, 255, 255, 255, 255, 255, 046 
28986 : 255, 255, 255, 255, 255, 255, 052 
28 992 : 255, 255, 255, 255, 255, 255, 058 
28998 : 255, 255, 255, 255, 255, 255, 064 
2 9004 : 255, 255, 255, 255, 255, 255, 070 
2 9010 : 255, 255, 255, 255, 255, 255, 076 
29016 : 255, 255, 255, 255, 255, 255, 082 
29022 : 255, 255, 255, 255, 255, 255, 088 
29028 : 255, 255, 255, 255, 255, 255, 094 
29034 : 255, 255, 255, 255, 255, 255, 100 
29040 : 171, 171, 171, 171, 171, 171, 114 
2 9046 : 171, 171, 252, 252, 252, 252, 188 
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29052 : 252 , 252 , 252 , 252 , 063 , 063, 234 
29058 : 063, 0 63, 0 63 , 063 , 063 , 063, 252 
2 9064 : 255 , 255 , 255 , 255 , 255 , 255, 130 
2 9070 : 255 , 255 , 255 , 255 , 255 , 255, 136 
29076 : 255 , 255 , 255 , 255 , 179, 17 9, 246 
29082 : 176, 17 6 , 172 , 172 , 171 , 170 , 167 
29088 : 000 , 000 , 128 , 034 , 008 , 000, 074 
29094 : 000 , 128 , 000 , 000 , 000 , 000, 038 
29100 : 000 , 000 , 000 , 000 , 002 , 000 , 174 
29106 : 000 , 000 , 000 , 000 , 000 , 000 , 178 
29112 : 000 , 000 , 000 , 000 , 002 , 002, 188 
29118 : 002 , 000 , 000 , 000 , 000 , 168, 104 
29124 : 170 , 170 , 170 , 168 , 002 , 000,108 
29130 : 000 , 000 , 000 , 000 , 000 , 000, 202 
29136 : 000 , 000 , 000 , 000 , 000 , 000, 208 
29142 : 000 , 000 , 000 , 000 , 000 , 000,214 
29148 : 000 , 000 , 000 , 000 , 000 , 002, 222 
29154 : 136 , 032 , 000 , 000 , 000 , 010, 148 
2 9160 : 195 , 003 , 014 , 014 , 058 , 058 , 062 
2 9166 : 234 , 170 , 255 , 255 , 255 , 255 , 126 
2 9172 : 255 , 255 , 255 , 255 , 191 , 175,094 
2 9178 : 175 , 171 , 170 , 170 , 170 , 170, 252 
29184 : 085 , 213 , 245 , 253 , 253 , 191,216 
29190 : 191 , 175 , 171 , 171 , 171 , 171, 032 
29196 : 171 , 170 , 234 , 234 , 102 , 153, 052 
29202 : 102 , 153 , 255 , 170 , 170 , 170,014 
29208 : 234 , 234 , 234 , 234 , 234 , 170, 084 
29214 : 170 , 170 , 182 , 185 , 182 , 185,080 
29220 : 191 , 170 , 170 , 170 , 110 , 158,237 
29226 : 110 , 158 , 254 , 170 , 170 , 170,050 
29232 : 255 , 255 , 255 , 255 , 255 , 255, 042 
29238 : 255 , 255 , 255 , 255 , 255 , 255, 048 
2 9244 : 255 , 255 , 255 , 255 , 255 , 255, 054 
29250 : 255 , 255 , 255 , 255 , 255 , 255, 060 
29256 : 255 , 255 , 255 , 255 , 255 , 255, 066 
29262 : 255 , 255 , 255 , 255 , 255 , 255, 072 
292 68 : 255 , 255 , 255 , 255 , 255 , 255, 078 
2 9274 : 255 , 255 , 255 , 255 , 255 , 255, 084 
2 9280 : 254 , 255 , 127 , 095 , 087 , 087, 233 
2 9286 : 085 , 085 , 170 , 170 , 234 , 234 , 056 
29292 : 250 , 254 , 255 , 127 , 255 , 255, 224 
29298 : 255 , 255 , 255 , 255 , 255 , 255, 108 
29304 : 255 , 255 , 255 , 255 , 255 , 255, 114 
29310 : 255 , 255 , 255 , 255 , 255 , 255, 120 
29316 : 255 , 255 , 255 , 255 , 255 , 255, 126 
29322 : 255 , 255 , 255 , 255 , 255 , 255, 132 
29328 : 255 , 255 , 255 , 255 , 255 , 255, 138 
29334 : 255 , 255 , 255 , 255 , 255 , 255 , 144 
29340 : 255 , 255 , 255 , 255 , 255 , 255, 150 
2 9346 : 255 , 255 , 255 , 255 , 255 , 255 , 156 
29352 : 255 , 255 , 255 , 255 , 255 , 255, 162 
29358 : 255 , 255 , 171 , 171 , 171 , 171,088 
29364 : 171 , 171 , 171 , 171 , 252 , 252,088 
29370 : 252 , 252 , 252 , 252 , 252 , 252, 162 
29376 : 063 , 063 , 063 , 063 , 063 , 063, 058 
29382 : 063 , 063 , 255 , 255 , 255 , 255, 064 
29388 : 255 , 255 , 255 , 255 , 255 , 255 , 198 
29394 : 255 , 255 , 255 , 255 , 255 , 255, 204 
29400 : 255 , 255 , 255 , 255 , 255 , 255, 210 
29406 : 255 , 255 , 252 , 171 , 171 , 171,217 


2 9412 : 170 , 170 , 170 , 171 , 000 , 000, 141 
29418 : 000 , 000 , 128 , 128 , 224 , 168, 114 
29424 : 000 , 000 , 000 , 000 , 000 , 000,240 
29430 : 000 , 000 , 000 , 000 , 000 , 000,24 6 
2 9436 : 000 , 000 , 008 , 002 , 032 , 032, 070 
2 9442 : 032 , 032 , 032 , 032 , 032 , 138,044 
2 9448 : 000 , 000 , 000 , 000 , 000 , 000, 008 
29454 : 128 , 000 , 000 , 000 , 000 , 000, 142 
29460 : 000 , 000 , 000 , 000 , 000 , 000, 020 
29466 : 000 , 000 , 000 , 000 , 002 , 002, 030 
29472 : 047 , 047 , 047 , 191 , 191 , 191, 234 
29478 : 255 , 170 , 255 , 255 , 255 , 255,203 
29484 : 255 , 255 , 255 , 255 , 255 , 255, 038 
2 94 90 : 255 , 255 , 255 , 255 , 255 , 255, 044 
29496 : 255 , 255 , 255 , 255 , 255 , 255, 050 
29502 : 255 , 255 , 171 , 171 , 170 , 170,230 
29508 : 170 , 170 , 170 , 170 , 245 , 253,222 
29514 : 253 , 191 , 191 , 175 , 171 , 170,201 
29520 : 170 , 170 , 170 , 170 , 234 , 250,220 
2952 6 : 250 , 254 , 255 , 255 , 255 , 255, 074 
29532 : 255 , 255 , 255 , 255 , 255 , 255, 086 
29538 : 255 , 255 , 255 , 255 , 255 , 255, 092 
29544 : 255 , 255 , 255 , 255 , 255 , 255, 098 
29550 : 255 , 255 , 255 , 255 , 255 , 255, 104 
29556 : 255 , 255 , 255 , 255 , 255 , 255, 110 
29562 : 255 , 255 , 255 , 255 , 255 , 255, 116 
2 9568 : 170 , 170 , 175 , 173 , 173 , 173, 138 

2957 4 : 173 , 173 , 170 , 170 , 255 , 085, 136 
2 9580 : 085 , 085 , 085 , 087 , 170 , 170, 054 

2958 6 : 255 , 085 , 085 , 085 , 085 , 255, 228 
29592 : 170 , 170 , 255 , 085 , 085 , 085, 234 
29598 : 085 , 085 , 170 , 170 , 234 , 234 , 112 
29604 : 234 , 234 , 234 , 234 , 175 , 175,170 
2 9610 : 171 , 170 , 170 , 170 , 170 , 170, 167 
2 9616 : 234 , 250 , 254 , 254 , 127 , 127,142 
29622 : 095 , 087 , 170 , 170 , 170 , 170, 020 
29628 : 170 , 234 , 234 , 250 , 255 , 255, 050 
29634 : 255 , 255 , 255 , 255 , 255 , 255, 188 
29640 : 255 , 255 , 255 , 255 , 255 , 255, 194 
2 9646 : 255 , 255 , 255 , 255 , 255 , 255, 200 
29652 : 255 , 255 , 255 , 255 , 255 , 255, 206 
29658 : 255 , 255 , 255 , 255 , 255 , 255, 212 
2 9664 : 255 , 255 , 255 , 255 , 255 , 255, 218 
2 9670 : 255 , 255 , 255 , 255 , 255 , 255, 224 
29676 : 255 , 255 , 255 , 255 , 171 , 171, 062 
29682 : 171 , 171 , 171 , 171 , 171 , 171, 244 
2 9688 : 252 , 252 , 252 , 252 , 252 , 252, 224 
2 969-4 : 252 , 252, 0 63 , 0 63 , 063 , 063, 242 
29700 : 063 , 063, 0 63 , 063 , 255 , 255, 254 
29706 : 255 , 255 , 255 , 255 , 255 , 255, 004 
29712 : 170 , 170 , 170 , 170 , 170 , 170,012 
2 9718 : 171 , 171 , 170 , 170 , 175 , 181,036 
2972 4 : 213 , 213 , 213 , 085 , 189 , 245, 162 
29730 : 085 , 085 , 085 , 085 , 085 , 085, 032 
2 973 6 : 088 , 088 , 08 6 , 08 6 , 086 , 085 , 047 
29742 : 085 , 085 , 000 , 000 , 192 , 191, 087 
29748 : 170 , 234 , 234 , 186 , 000 , 000, 108 
2 9754 : 000 , 000 , 252 , 171 , 170 , 171, 054 
29760 : 000 , 000 , 000 , 000 , 000 , 003 , 067 
2 9766 : 253 , 173 , 000 , 000 , 000 , 003, 243 
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Per collaborare a SUPERCOMMODORE 


Se desiderate inviare alla rivista i vostri programmi o articoli, vi proponiamo una piccola 'gui- 
da', con lo scopo particolare di rendere più accurata la stesura dei manoscritti: seguendo 
questi consigli si accresceranno le probabilità che i vostri lavori vengano pubblicati. 


1 l'angolo superiore sinistro della prima 
pagina dovrà contenere: nome, cogno- 
me, indirizzo, numero telefonico, codice fisca- 
le, luogo e data di nascita. 

l'angolo superiore destro della prima 
pagina dovrà contenere il tipo di com- 
puter al quale il lavoro si riferisce (C64 o 
CI 28), unitamente alle eventuali periferiche 
richieste. 

3 il titolo deH’articolo, sottolineato, dovrà 
iniziare a circa due terzi in altezza della 
prima pagina. 

l'articolo dovrà pervenire in Redazione 
sia registrato su supporto magnetico 
(formato SpeedScript o Easy Script per C64, 
oppure in formato ASCII MS-DOS o Macin- 
tosh) che stampato su carta. 

5 analogamente i programmi, che accom- 
pagnano gli articoli dovranno essere in- 
viati su supporto magnetico (floppy disk o 
cassetta); non ha importanza che venga forni- 
to un listato su carta degli stessi. 

nel caso i programmi siano in linguag- 
gio macchina, dovranno essere specifi- 
cati gli indirizzi iniziale e finale, e la procedu- 
ra da seguire per il loro caricamento ed attiva- 
zione. 

7 programmi in BASIC spezzati in più 
parti dovranno prevedere il carica- 
mento in overlay da cassetta e (opzionalmen- 
te) da disco. 


8 si tenga presente, che non potranno es- 
sere pubblicati listati troppo lunghi o ri- 
guardanti argomenti appena trattati sulla ri- 
vista. 

9 non verranno presi in considerazione 
articoli o programmi non originali e già 
sottoposti ad altre case editrici. 

il materiale pervenuto non sarà restitui- 
to, mentre verrà data comunicazione 
scritta o telefonica all'Autore soltanto nel ca- 
so in cui il lavoro sia stato ritenuto meritevole 
di pubblicazione. 

il compenso spettante per la collabora- 
zione prestata sarà commisurato alla 
complessità e all’interesse del lavoro (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ) e verrà corrisposto un mese dopo 
l'avvenuta pubblicazione sulla rivista. 


Inviate articoli e programmi a: 

SUPERCOMMODORE 

Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i con- 
tributi migliori. 

La Redazione 
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30354 : 171 , 171 , 171 , 171 , 170 , 170,146 
30360 : 085 , 085 , 085 , 085 , 085 , 149,214 
30366 : 149 , 149 , 085 , 085 , 085 , 085 , 028 
30372 : 085 , 085 , 085, 0 90 , 213 , 125, 07 9 
30378 : 087 , 087 , 0 93 , 117 , 213 , 087 , 086 
3038 4 : 085 , 085 , 085 , 149 , 149 , 101 , 0 62 
30390 : 165 , 009 , 08 6 , 08 6 , 086 , 08 6 , 188 
30396 : 086 , 086 , 08 6 , 090 , 091 , 091,206 
30402 : 091 , 0 91, 0 91 , 091 , 091 , 090, 227 
30408 : 085 , 085 , 085 , 085 , 085 , 085, 198 
30414 : 08 6 , 086 , 085 , 085 , 086 , 08 9,211 
30420 : 102 , 149 , 037 , 009 , 101 , 149,247 
3042 6 : 085 , 085 , 085 , 165 , 089 , 086, 045 
30432 : 085 , 085 , 085 , 085 , 085 , 085, 222 
30438 : 085 , 085 , 085 , 085 , 085 , 085, 228 
30444 : 086 , 08 6 , 0 91 , 091 , 234 , 234 , 034 
30450 : 234 , 234 , 170 , 170 , 170 , 170, 110 
30456 : 255 , 255 , 255 , 255 , 255 , 255, 242 
30462 : 255 , 255 , 255 , 255 , 255 , 255, 248 
304 68 : 255 , 255 , 255 , 255 , 255 , 255, 254 
30474 : 255 , 255 , 255 , 255 , 255 , 255, 004 
30480 : 255 , 255 , 255 , 255 , 255 , 255, 010 
3048 6 : 255 , 255 , 255 , 255 , 255 , 255, 016 
30492 : 255 , 255 , 255 , 255 , 255 , 255, 022 
304 98 : 255 , 255 , 255 , 255 , 255 , 255, 028 
30504 : 253 , 255 , 191 , 175 , 175 , 171,236 
30510 : 170 , 170 , 085 , 085 , 085 , 213, 086 
30516 : 245 , 253 , 253 , 191 , 255 , 255,224 
30522 : 255 , 255 , 255 , 255 , 255 , 255, 052 
30528 : 173 , 173 , 173 , 173 , 173 , 173, 078 
30534 : 173 , 175 , 171 , 171 , 171 , 171, 078 
30540 : 171 , 171 , 171 , 255 , 255 , 255,074 
3054 6 : 255 , 255 , 255 , 255 , 255 , 255, 076 
30552 : 234 , 234 , 234 , 234 , 234 , 234, 212 
30558 : 234 , 255 , 234 , 234 , 234 , 234, 239 
30564 : 234 , 234 , 234 , 234 , 255 , 255, 010 
30570 : 255 , 255 , 255 , 255 , 255 , 255, 100 
3057 6 : 255 , 255 , 255 , 255 , 255 , 255, 106 
30582 : 255 , 255 , 255 , 255 , 255 , 255, 112 
30588 : 255 , 255 , 255 , 255 , 255 , 255 , 118 
30594 : 255 , 255 , 255 , 255 , 255 , 255 , 124 
30600 : 171 , 170 , 170 , 170 , 170 , 170, 133 
30606 : 170 , 170 , 254 , 255 , 127 , 095, 18 9 
30612 : 095 , 087 , 085 , 085 , 170 , 170,072 
30618 : 170 , 234 , 250 , 250 , 254 , 255, 031 
30 624 : 255 , 255 , 255 , 255 , 255 , 255, 154 
30630 : 255 , 255 , 255 , 255 , 255 , 255, 160 
30636 : 255 , 255 , 255 , 255 , 171 , 171,254 
30642 : 17 1 , 171 , 171 , 171 , 171 , 171 , 180 
30648 : 252 , 252 , 252 , 252 , 252 , 252 , 160 
30654 : 252 , 252 , 063,0 63,0 63 , 063 , 178 
30660 : 063 > 063 , 063 , 063 , 255 , 255, 190 
30666 : 255 , 255 , 255 , 255 , 255 , 255, 196 
30 672 : 170 , 171 , 171 , 171 , 171 , 170,208 
30678 : 170 , 170 , 245 , 117 , 095 , 087, 074 
30684 : 085 , 213 , 245 , 205 , 101 , 149, 194 
30690 : 08 6 , 088 , 160 , 096 , 088 , 086 , 062 
30696 : 248 , 160 , 000 , 000 , 000 , 000 , 128 
30702 : 002 , 171 , 014 , 014 , 014 , 058,255 
30708 : 058 , 234 , 170 , 170 , 094 , 094, 040 


30714 : 094 , 094 , 0 94 , 094 , 094 , 126, 078 
30720 : 0 95 , 087 , 087 , 087 , 087 , 087,018 
30726 : 087 , 087 , 088 , 088 , 088 , 088, 020 
30732 : 08 6 , 086 , 085 , 149 , 002 , 000 , 164 
30738 : 000 , 000 , 000 , 000 , 128 , 104,250 
30744 : 234 , 062 , 003 , 000 , 000 , 000 , 067 
30750 : 000 , 015 , 245, 0 95 , 087 , 247, 207 
30756 : 013 , 053 , 213 , 085 , 107 , 150,145 
30762 : 08 6 , 085 , 085 , 08 6 , 08 6 , 091, 049 
30768 : 170 , 170 , 170 , 234 , 234 , 170,172 
30774 : 170 , 170 , 255 , 255 , 255 , 255, 134 
30780 : 255 , 255 , 255 , 255 , 255 , 255, 054 
30786 : 255 , 255 , 255 , 255 , 255 , 255, 060 
30792 : 255 , 255 , 255 , 255 , 255 , 255, 066 

307 98 : 255 , 255 , 255 , 255 , 255 , 255, 072 
30804 : 255 , 255 , 255 , 255 , 255 , 255, 078 
30810 : 255 , 255 , 255 , 255 , 255 , 255, 084 
30816 : 255 , 255 , 255 , 255 , 255 , 255, 090 
30822 : 255 , 255 , 255 , 255 , 255 , 255, 096 
30828 : 255 , 255 , 255 , 255 , 191 , 175,214 
30834 : 171 , 171 , 170 , 170 , 170 , 170 , 112 
30840 : 213 , 213 , 245 , 253 , 253 , 191, 208 
30846 : 191 , 175 , 170 , 170 , 170 , 170,148 
30852 : 170 , 170 , 234 , 250 , 255 , 255,18 6 
30858 : 255 , 255 , 255 , 255 , 255 , 255 , 132 

308 64 : 255 , 255 , 255 , 255 , 255 , 255 , 138 
30870 : 255 , 255 , 255 , 255 , 255 , 255, 144 
30876 : 255 , 255 , 255 , 255 , 255 , 255, 150 
30882 -. 255 , 255 , 255 , 255 , 255 , 255,156 
30888 : 255 , 255 , 255 , 255 , 255 , 255, 162 
30894 : 255 , 255 , 170 , 170 , 171 , 171, 086 
30900 : 171 , 171 , 171 , 171 , 170 , 170, 180 
30906 : 255 , 153 , 102 , 153 , 102 , 153,080 
30 912 : 170 , 170 , 255 , 153 , 102 , 153,171 
30 918 : 102 , 153 , 170 , 170 , 255 , 153, 177 
30924 : 102 , 153 , 102 , 153 , 170 , 170,030 
30 930 : 250 , 186 , 122 , 18 6 , 122 , 186,238 
30 936 : 191 , 175 , 171 , 171 , 170 , 170,240 
30 942 : 170 , 170 , 234 , 234 , 250 , 254,254 
30948 : 255 , 127 , 095 , 095 , 170 , 170, 116 
30954 : 170 , 170 , 170 , 170 , 234 , 250,118 
30960 : 171 , 171 , 171 , 171 , 171 , 171,242 
30966 : 171 , 171 , 252 , 252 , 252 , 252, 0 60 
30972 : 252 , 252 , 252 , 252 , 063 , 063,106 
30978 : 0 63 , 063 , 063 , 063 , 063,0 63,124 
30984 : 255 , 255 , 255 , 255 , 255 , 255, 002 
30990 : 255 , 255 , 170 , 171 , 171 , 171, 183 
30996 : 171 , 171 , 171 , 170 , 205 , 003 , 143 
31002 : 000 , 003 , 003 , 003 , 003 , 195, 233 
31008 : 250 , 224, 12 8 , 128 , 000 , 000,250 
31014 : 002 , 010 , 010 , 000 , 000 , 000,060 
31020 : 000 , 160 , 168 , 168 , 170 , 234,17 6 
3102 6 : 058 , 058 , 058 , 058 , 014 , 014 , 054 
31032 : 111 , 111 , 111 , 111 , 091 , 091 , 170 
31038 : 08 6 , 085 , 085 , 085 , 085 , 087 , 063 
31044 : 087 , 094 , 094 , 250 , 213 , 213, 251 
31050 : 213 , 213 , 085 , 085 , 085 , 085,072 
31056 : 170 , 171 , 172 , 17 6 , 176 , 192, 113 
31062 : 192 , 192 , 254 , 195 , 000 , 000 , 151 
31068 : 000 , 000 , 060 , 255 , 255 , 175,069 
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31074 : 047 , 010 , 008 , 008 , 010 , 002, 183 
31080 : 233 , 226 , 130 , 000 , 000 , 000,181 
3108 6 : 000 , 000 , 170 , 170 , 170 , 234 , 08 6 
31092 : 234 , 234 , 234 , 234 , 255 , 255 , 02 6 
31098 : 255 , 255 , 255 , 255 , 255 , 255 , 116 
31104 : 255 , 255 , 255 , 255 , 255 , 255 , 122 
31110 : 255 , 255 , 255 , 255 , 255 , 255, 128 
31116 : 255 , 255 , 255 , 255 , 255 , 255, 134 
31122 : 255 , 255 , 255 , 255 , 255 , 255, 140 
31128 : 255 , 255 , 255 , 255 , 255 , 255 , 14 6 
31134 : 255 , 255 , 255 , 255 , 255 , 255, 152 
31140 : 255 , 255 , 255 , 255 , 255 , 255, 158 
31146 : 255 , 255 , 255 , 255 , 255 , 255, 164 
31152 : 255 , 255 , 255 , 255 , 255 , 255, 170 
31158 : 255 , 255 , 171 , 170 , 170 , 170,0 93 
31164 : 170 , 170 , 170 , 170 , 245 , 253, 08 6 
31170 : 255 , 191 , 175 , 175 , 171 , 170,051 
31176 : 170 , 170 , 170 , 170 , 234 , 250,084 
31182 : 254 , 254 , 255 , 255 , 255 , 255, 198 
31188 : 255 , 255 , 255 , 255 , 255 , 255, 206 
31194 : 255 , 255 , 255 , 255 , 255 , 255, 212 
31200 : 255 , 255 , 255 , 255 , 255 , 255, 218 
31206 : 255 , 255 , 255 , 255 , 255 , 255, 224 
31212 : 255 , 255 , 255 , 255 , 171 , 171,062 
31218 : 171 , 171 , 171 , 171 , 171 , 171,244 
31224 : 238 , 187 , 238 , 187 , 238 , 187,243 
31230 : 238 , 187 , 255 , 234 , 234 , 234 , 100 
31236 : 234 , 255 , 102 , 153 , 255 , 170, 149 
31242 : 170 , 170 , 170 , 255 , 102 , 153,00 6 
31248 : 250 , 170 , 170 , 170 , 170 , 250, 172 
31254 : 122 , 186 , 255 , 255 , 255 , 255, 070 
31260 : 255 , 255 , 255 , 255 , 171 , 170,109 
31266 : 170 , 170 , 170 , 170 , 170 , 170,030 
31272 : 254 , 254 , 127 , 127 , 095 , 087,216 
31278 : 085 , 085 , 171 , 171 , 171 , 235,196 
31284 : 251 , 251 , 255 , 255 , 252 , 252, 032 
31290 : 252 , 252 , 252 , 252 , 252 , 252, 034 
31296 : 0 63, 0 63 , 063 , 063 , 063, 0 63, 186 
31302 : 063, 0 63 , 255 , 255 , 255 , 255, 192 
31308 : 255 , 255 , 255 , 255 , 255 , 255, 070 
31314 : 255 , 255 , 255 , 255 , 255 , 255, 076 
31320 : 204 , 188 , 172 , 17 6 , 176 , 17 6, 156 
31326 : 176 , 172 , 042 , 042 , 042 , 170 , 22 6 
31332 : 170 , 170 , 170 , 042 , 255 , 255 , 138 
31338 : 255 , 255 , 255 , 255 , 255 , 255, 100 
31344 : 009 , 002 , 130 , 130 , 130 , 002, 003 
31350 : 008 , 008 , 170 , 170 , 170 , 250, 126 
31356 : 015 , 000 , 000 , 000 , 250 , 170, 047 
31362 : 170 , 170 , 255 , 000 , 000 , 000, 213 
31368 : 254 , 254 , 234 , 130 , 002 , 008,250 
31374 : 008 , 008 , 002 , 010 , 010 , 010 , 190 
31380 : 042 , 042 , 042 , 042 , 255 , 255,058 
31386 : 255 , 255 , 255 , 255 , 255 , 255, 148 
31392 : 002 , 130 , 128 , 160 , 160 , 160,132 
31398 : 128 , 130 , 002 , 002 , 130 , 138,18 4 
31404 : 171 , 175 , 191 , 255 , 255 , 255 , 194 
31410 : 255 , 255 , 255 , 255 , 255 , 255, 172 
31416 : 255 , 255 , 255 , 255 , 255 , 255, 178 
31422 : 255 , 255 , 255 , 255 , 255 , 255, 184 
31428 : 255 , 255 , 255 , 255 , 255 , 255, 190 


31434 : 255 , 255 , 255 , 255 , 255 , 255, 196 
31440 : 255 , 255 , 255 , 255 , 255 , 255, 202 
3144 6 : 255 , 255 , 255 , 255 , 255 , 255, 208 
31452 : 255 , 255 , 255 , 255 , 255 , 255, 214 
31458 : 255 , 255 , 255 , 255 , 255 , 255, 220 
31464 : 255 , 255 , 255 , 255 , 255 , 255, 226 
31470 : 255 , 255 , 255 , 255 , 255 , 255, 232 
3147 6 : 255 , 255 , 255 , 255 , 255 , 255, 238 
31482 : 255 , 255 , 255 , 255 , 255 , 255, 244 
31488 : 255 , 255 , 255 , 255 , 255 , 255, 250 
31494 : 255 , 255 , 191 , 191 , 175 , 171,220 
31500 : 171 , 170 , 170 , 170 , 085 , 213,223 
3150 6 : 213 , 245 , 253 , 253 , 191 , 191, 084 
31512 : 170 , 170 , 170 , 170 , 170 , 170,020 
31518 : 170 , 234 , 255 , 255 , 255 , 255, 174 
31524 : 255 , 255 , 255 , 255 , 255 , 255, 030 
31530 : 255 , 255 , 255 , 255 , 255 , 255, 036 
31536 : 171 , 171 , 171 , 171 , 170 , 170,048 
31542 : 170 , 170 , 102 , 153 , 102 , 255,238 
31548 : 170 , 170 , 170 , 170 , 102 , 153,227 
31554 : 102 , 255 , 170 , 170 , 170 , 170,07 9 
31560 : 153 , 102 , 153 , 230 , 217 , 230,133 
31566 : 217 , 230 , 122 , 18 6 , 122 , 186, 117 
31572 : 122, 18 6 , 122,18 6 , 255 , 255 , 186 
31578 : 255 , 255 , 255 , 255 , 255 , 255, 084 
31584 : 255 , 255 , 255 , 255 , 255 , 255, 090 
31590 : 255 , 255 , 255 , 255 , 255 , 255, 096 
31596 : 255 , 255 , 255 , 255 , 191 , 175,214 
31602 : 171 , 171 , 171 , 171 , 171 , 171,116 
31608 : 252 , 252 , 252 , 252 , 252 , 252, 096 
31614 : 252 , 252 , 063 , 063 , 063 , 063 , 114 
31620 : 063 , 063 , 063 , 0 63 , 255 , 255,12 6 
3162 6 : 255 , 255 , 255 , 255 , 255 , 255, 132 
31632 : 255 , 255 , 255 , 255 , 255 , 255, 138 
31638 : 255 , 255 , 172 , 172 , 171 , 171 , 066 
31644 : 171 , 171 , 170 , 170 , 042 , 010, 122 
31650 : 010 , 002 , 000 , 128 , 224 , 250, 008 
31656 : 255 , 252 , 252 , 192 , 000 , 000, 095 
31662 : 015 , 250 , 008 , 008 , 032 , 032, 007 
31668 : 040 , 190 , 191 , 255 , 000 , 000 , 088 
31674 : 000 , 000 , 000 , 128 , 232 , 254,032 
31680 : 000 , 000 , 000 , 000 , 000 , 000 , 192 
31686 : 002 , 171 , 002 , 002 , 002 , 000, 121 
31692 : 002 , 043 , 191 , 255 , 010 , 010, 203 
31698 : 002 , 130 , 128 , 128 , 160 , 248,238 
31704 : 255 , 255 , 255 , 255 , 252 , 000, 208 
31710 : 000 , 003 , 195 , 195 , 003 , 014 , 120 
31716 : 014 , 014 , 058 , 250 , 255 , 255, 050 
31722 : 255 , 255 , 255 , 255 , 255 , 255, 228 
31728 : 255 , 255 , 255 , 255 , 255 , 255, 234 
31734 : 255 , 255 , 255 , 255 , 255 , 255, 240 
31740 : 255 , 255 , 255 , 255 , 255 , 255, 246 
31746 : 255 , 255 , 255 , 255 , 255 , 255, 252 
31752 : 255 , 255 , 255 , 255 , 255 , 255, 002 
31758 : 255 , 255 , 255 , 255 , 255 , 255, 008 
31764 : 255 , 255 , 255 , 255 , 255 , 255, 014 
31770 : 255 , 255 , 255 , 255 , 255 , 255, 020 
31776 : 255 , 255 , 255 , 255 , 255 , 255, 026 
31782 : 255 , 255 , 255 , 255 , 255 , 255, 032 
31788 : 255 , 255 , 255 , 255 , 255 , 255, 038 


10/87 SUPERCOMMOOORE C64 8128 61 


31794 : 255 , 255 , 
31800 : 255 , 255 , 
31806 : 255 , 255 , 
31812 : 255 , 255 , 
31818 : 255 , 255 , 
31824 : 175 , 171 , 
31830 : 170 , 170 , 
31836 : 191 , 175 , 
31842 : 170 , 170 , 
31848 : 255 , 255 , 
31854 : 255 , 255 , 
31860 : 171 , 171 , 
31866 : 153 , 102 , 
31872 -. 255 , 102 , 
31878 -. 153 , 255 , 
31884 : 102 , 153 , 
31890 : 122 , 186 , 
31896 : 255 , 255 , 
31902 : 255 , 255 , 
31908 : 255 , 255 , 
31914 : 255 , 255 , 
31920 : 171 , 171 , 
31926 : 171 , 171 , 
31932 : 252 , 252 , 
31938 : 063 , 063 , 
31944 : 255 , 255 , 
31950 : 255 , 255 , 
31956 : 255 , 255 , 
31962 : 255 , 255 , 
31968 : 255 , 255 , 
31974 : 255 , 255 , 
31980 : 255 , 255 , 
31986 : 255 , 255 , 
31992 : 255 , 255 , 
31998 : 255 , 255 , 
32004 : 255 , 255 , 
32010 : 255 , 255 , 
32016 : 171 , 170 , 
32022 : 170 , 170 , 
32028 : 170 , 170 , 
32034 : 255 , 255 , 
32040 : 255 , 255 , 
32046 : 255 , 255 , 
32052 : 255 , 255 , 
32058 : 255 , 255 , 
32064 : 255 , 255 , 
32070 : 255 , 255 , 
32076 : 255 , 255 , 
32082 : 255 , 255 , 
32088 : 255 , 255 , 
32094 : 255 , 255 , 
32100 : 255 , 255 , 
32106 : 255 , 255 , 
32112 : 255 , 255 , 
32118 : 255 , 255 , 
32124 : 255 , 255 , 
32130 : 255 , 255 , 
32136 : 255 , 255 , 
32142 : 255 , 255 , 
32148 : 255 , 255 , 


255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 . 255 . 255 . 255 , 

170 . 170 . 170 . 170 , 

245 . 245 . 253 . 255 , 

175 . 171 . 170 . 170 , 

170 . 234 . 250 . 254 , 

255 . 255 . 255 . 255 , 

171 . 171 . 171 . 171 , 

171 . 171 . 255 . 102 , 

153 . 102 . 153 . 255 , 

153 . 102 . 153 . 102 , 
230 , 153 , 102 , 153 , 
102 , 255 , 122 , 186 , 
122 , 186 , 122 , 250 , 

255 . 255 . 255 . 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

171 , 171 , 171 , 171 , 
252 , 252 , 252 , 252 , 

252 . 252 . 063 . 063 , 

063 . 063 . 063 . 063 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 . 255 . 255 . 255 , 

170 . 170 . 170 . 170 , 

254 . 170 . 170 . 170 , 

170 . 170 . 255 . 255 , 

255 . 255 . 255 . 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 

255 , 255 , 255 , 255 , 


044 

32154 

050 

32160 

056 

32166 

062 

32172 

068 

32178 

082 

32184 

144 

32190 

120 

32196 

066 

32202 

098 

32208 

024 

32214 

133 

32220 

016 

32226 

227 

32232 

156 

32238 

036 

32244 

110 

32250 

146 

32256 

152 

32262 

158 

32268 

164 

32274 

178 

32280 

252 

32286 

042 

32292 

060 

32298 

194 

32304 

200 

32310 

206 

32316 

212 

32322 

218 

32328 

224 

32334 

230 

32340 

236 

32346 

242 

32352 

248 

32358 

254 

32364 

004 

32370 

013 

32376 

102 

32382 

194 

32388 

028 

32394 

034 

32400 

040 

32406 

046 

32412 

052 

32418 

058 

32424 

064 

32430 

070 

32436 

076 

32442 

082 

32448 

088 

32454 

094 

32460 

100 

32466 

106 

32472 

112 

32478 

118 

32484 

124 

32490 

130 

32496 

136 

32502 

142 

32508 


: 255 , 255 , 255 , 
: 253 , 191 , 191 , 
: 170 , 170 , 085 , 
: 245 , 253 , 253 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 255 , 254 , 254 , 
: 255 , 255 , 255 , 
: 238 , 190 , 171 , 
: 187 , 251 , 187 , 
: 252 , 252 , 252 , 
: 063 , 063 , 063 , 
: 063 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 170 , 170 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 
: 255 , 255 , 255 , 
: 234 , 250 , 255 , 
: 255 , 000 , 170 , 
: 255 , 255 , 255 , 


255 , 255 , 255,148 
175 , 171 , 171,032 
085 , 213 , 213,078 
191 , 255 , 255,088 
255 , 255 , 255,172 
255 , 255 , 255, 178 
255 , 255 , 255,184 
255 , 255 , 255,190 
255 , 255 , 255,196 
255 , 255 , 255,202 
255 , 255 , 255,208 

255 . 255 . 255.214 

254 . 254 . 254.215 

190 . 238 . 238.127 
171 , 171 , 187,086 
187 , 252 , 252,024 
252 , 252 , 252,226 
063 , 063 , 063,122 

170 . 255 . 255 , 151 
000 , 170 , 170,093 

255 . 255 . 000 . 013 
255 , 255 , 255,104 
170 , 255 , 255,111 
000 , 170 , 170,117 

255 . 255 . 000 . 037 

255 . 255 . 255.128 
170 , 255 , 255,135 
000 , 170 , 170,141 

255 . 255 . 000 . 061 
255 , 255 , 255,152 
170 , 255 , 255,159 
000 , 170 , 170,165 

255 . 255 . 000 . 085 
255 , 255 , 255,176 
170 , 255 , 255,183 
000 , 170 , 170,189 

255 . 255 . 000 . 109 
255 , 255 , 255,200 

170 . 255 . 255.207 
000 , 170 , 170,213 

255 . 255 . 000 . 133 
255 , 255 , 255,224 
170 , 255 , 255,231 
000 , 170 , 170,237 

255 . 255 . 000 . 157 
255 , 255 , 255,248 
170 , 255 , 255,255 
000 , 170 , 170,005 

255 . 255 . 000 . 181 

255 . 255 . 255 , 016 
170 , 255 , 255,023 
000 , 170 , 170,029 

255 . 255 . 000 . 205 
255 , 255 , 255,040 
170 , 255 , 255,047 
000 , 191 , 175,079 

255 . 255 . 000 . 229 

255 . 255 . 255.208 
170 , 255 , 255,071 
000 , 170 , 170,077 
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COD.TITOLO GIOCO 

PRODUTTORE 

M. 

S. 

L. 5.000 

0709 CURSE OF 
SHERWOOD 

MASTERTRONIC 

AR 

NC 

0733 EQUALIZER 

THE POWER 
HOUSE 

AR 

NC 

0617 FEUD 

BULLDOG 

AA 

NC 

0834 GUN STAR 

FIREBIRD 

AR 

NC 

0764 HAPPIEST DAYS 

FIREBIRD 

AR 

NC 

0730 MAD NURSE 

FIREBIRD 

AR 

NC 

0766 MICRO RITHM 

FIREBIRD 

UT 

NC 

0984 MILK RACE 

MASTERTRONIC 

SP 

NC 

0713 OLLI & LISA 

FIREBIRD 

AR 

NC 

0306 P.O.D. 

MASTERTRONIC 

AR 

NC 

0816 PNEUMATIC 
HAMMER 

FIREBIRD 

AR 

NC 

0299 S.W.A.T 

MASTERTRONIC 

AR 

NC 

0732 TERMINATOR 

THE POWER 
HOUSE 

AR 

NC 

0731 THE PRINCE 

FIREBIRD 

AR 

NC 

0765 TWINKY 

FIREBIRD 

AR 

NC 

0835 U.F.O. 

FIREBIRD 

AR 

NC 

0932 ZONE RANGER 

BULLDOG 

AR 

NC 

L. 7.500 

0819 AMAROUTE 

M.A.D. 

AR 

NC 

0148 CAULDRON II 

PALACE 

SOFTWARE 

AR 

se 

0238 D-BUG 

ARIOLASOFT 

AR 

se 

0552 ELEVATOR ACTION 

QUICKSILVA 

AR 

se 

0798 KARATÉ CHAMP 

AMERICANA 

SP 

NC 

0708 LAZERWHEEL 

MASTERTRONIC 

AR 

NC 

0815 PACOS PETE 

AMERICANA 

AR 

NC 

0068 QUAKE MINUS 1 

BEYOND 

AR 

se 

0447 STAR SOLDIER 

QUICKSILVA 

AR 

se 

0227 STARSHIP 
ANDROMEDA 

ARIOLASOFT 

AR 

se 

0233 WILD WEST 

ARIOLASOFT 

AR 

se 

0224 WIZARD 

ARIOLASOFT 

AR 

se 

0122 YABBA DABBA DOO QUICKSILVA 

AR 

NC 

L. 9.900 

0208 THAI BOXING 

ANCO 

AR 

se 

L. 10.000 

0812 GAUNTLET (DEEPER 
DUNGEONS) 

U.S. GOLD 

UT 

NC 

L. 14.900 

0242 ARCHON 

ARIOLASOFT 

ST 

se 

0553 ELEVATOR ACTION 

QUICKSILVA 

AR 

SD 

0843 KET TRILOGY 

INCENTIVE 

AD 

NC 

0243 M.U.L.E. 

ARIOLASOFT 

AR 

se 

0241 MUSIC 

CONSTRUCTION SET 

ARIOLASOFT 

AR 

se 

0847 THANATOS 

DURRELL 

AA 

NC 

0228 TOUCH DOWN 
FOOTBALL 

ARIOLASOFT 

AR 

se 

L. 15.000 

0833 GAUNTLET (DEEPER 
DUNGEONS) 

U.S GOLD 

UT 

ND 

L. 18.000 

0979 4 STATESIDE SMASH 
HITS 

1 

U.S. GOLD 

RA 

NC 

0883 5 COMPUTER HITS 

BEAU-JOLLY 

RA 

NC 

0884 5 STAR GAMES II 

BEAU-JOLLY 

RA 

NC 

0849 500 CC GRAND PRIX 

MICROIDS 

SI 

NC 

0830 ACCOLADE (3 PRG.) 

U.S. GOLD 

RA 

NC 

0971 ALICE IN VIDEOLAND AUDIOGENIC 

AA 

NC 

0831 ALIENS (USA) 

ACTIVISION 

AR 

NC 

0692 ARKANOID 

OCEAN 

AR 

NC 

0871 ARMY MOVES 

OCEAN 

AR 

NC 

0783 ART LIBRARY 1 

MELODY HALL 

GR 

SD 

0784 ART LIBRARY 2 

MELODY HALL 

GR 

SD 

0885 AUF WIEDERSEHEN 
MONTY 

GREMLIN 

AR 

NC 

0952 BARBARIAN 

PALACE 

SOFTWARE 

AA 

NC 

0949 BIG FOUR (4 PRG.) 

DURRELL 

RA 

NC 

0668 BIG TROUBLE 

IN LITTLE CHINA 

ELECTRIC 

DREAMS 

AR 

NC 

0621 BOMB JACK II 

ELITE 

AR 

NC 

0782 CALENDARS & 
STATIONERY 

MELODY HALL 

GR 

SD 

0997 CHALLENGE OF THE 
GOBOTS 

ARIOLASOFT 

AR 

NC 

0959 CLUEDO- 

* 



MONOPOLY- 

SCRABBLE 

VIRGIN GAMES 

RA 

NC 

0854 CYBORG 

C.R.L. 

AR 

NC 

0962 DEACTIVATOR 

ARIOLASOFT 

AA 

ND 

0892 DEATH OR GLORY 

C.R.L. 

AR 

NC 

0996 DEATHSCAPE 

STARLIGHT 

AR 

NC 

0757 DELTA 

THALAMUS 

AR 

NC 

0873 DOGFIGHT 2187 

STARLIGHT 

SI 

NC 

0779 ENDURO RACERS 

ACTIVISION 

SI 

NC 

0591 EXPRESS RAIDER 

U.S. GOLD 

AR 

NC 

0772 FIRETRACK 

ELECTRIC 

DREAMS 

AR 

NC 

1015 FRANKENSTEIN 

C.R.L. 

AD 

NC 


0780 GREETING CARDS 

MELODY HALL 

GR 

SD 

0877 GREYFELL (LEGEND 




OF NORMA) 

STARLIGHT 

AA 

NC 

0817 HEAD OVER HEELS 

OCEAN 

AR 

NC 

0710 INDOOR GAMES 

DATABYTE 

SP 

NC 

0727 INTO THE EAGLES 




NEST 

PANDORA 

AR 

NC 

0968 KAISER 

ARIOLASOFT 

ST 

ND 

0844 KET TRILOGY 

INCENTIVE 

AD 

N D 

0840 KILLED UNTIL DEAD 

U.S. GOLD 

AD 

NC 

0963 LAPHIS 




PHILOSOPHORUM 

ARIOLASOFT 

AD 

N D 

0663 LEADERBOARD 




EXECUTIVE 

U.S. GOLD 

SI 

NC 

0076 LITTLE COMPUTER 




PEOPLE 

ACTIVISION 

SI 

NC 

0263 MAG MAX 

IMAGINE 

AR 

NC 

0967 MAIL ORDER 




MONSTERS 

ARIOLASOFT 

AR 

ND 

0338 MARBLE MADNESS 

ARIOLASOFT 

AR 

NC 

0870 MARIO BROS. 

OCEAN 

AR 

NC 

0893 MAX HEADROOM 

QUICKSILVA 

AA 

NC 

0857 METRO CROSS 

U.S. GOLD 

AR 

NC 

0965 MINDSHADOW 

ACTIVISION 

AD 

N D 

0964 MURDER ON THE 




ZINDERNEUF 

ARIOLASOFT 

AD 

ND 

0137 MY CHESS II 

BEYOND 

TA 

NC 

0693 NEMEAIA 

KONAMI 

AR 

NC 

0882 NEMESIS THE 




WARLOCK 

MARTECH 

AA 

NC 

0891 NOSPHERATU THE 




VAMPIRE 

PIRANHA 

AD 

NC 

0806 NOW GAMES 1 




(6 PRG.) 

VIRGIN GAMES 

RA 

NC 

0807 NOW GAMES 2 




(5 PRG.) 

VIRGIN GAMES 

RA 

NC 

0808 NOW GAMES 3 




(5 PRG.) 

VIRGIN GAMES 

RA 

NC 

0852 NOW GAMES 4 




(5 PRG.) 

VIRGIN GAMES 

RA 

NC 

0706 POLAR PIERRE 

DATABYTE 

AR 

NC 

0966 RACING 




DESTRUCTION SET 

ARIOLASOFT 

SP 

NC 

0773 RANA RAMA 

HEWSON 

AR 

NC 

0874 RISK 

THE EDGE 

AR 

NC 

0995 ROUGE TROOPER 

PHIRANHA 

AR 

NC 

0814 ROMULUS 

QUICKSILVA 

AR 

NC 

0728 SAILING 

ACTIVISION 

SP 

NC 

0858 SAMURAI TRILOGY 

GREMLIN 

SP 

NC 

0841 SARACEN 

U.S. GOLD 

AR 

NC 

0712 SCOTT ADAMS 




SCOOPS 

U.S. GOLD 

RA 

NC 

1016 SHADOWS 




OF MORDOR 

MELBOURNE 




HOUSE 

AD 

NC 

0859 SHOCKWAY RIDER 

FASTER THAN 




LIGH 

AR 

NC 

0781 SINGS & BANNERS 

MELODY HALL 

GR 

SD 

0754 SIX PACK (6 PRG.) 

ELITE 

RA 

NC 

0969 SPARKLERS 




SPECIAL (4 PRG.) 

SPARKLERS 

RA 

NC 

0939 STAR RIDERS 2 

ELECTRIC 




DREAMS 

AR 

NC 

0954 STIFFLIP & CO 

PALACE 




SOFTWARE 

AD 

NC 

0869 SUMMER GAMES 

U.S. GOLD 

SP 

NC 

0763 SUMMER GAMES II 

U.S. GOLD 

SP 

NC 

0724 SYDNEY AFFAIR 

INFROGRAMES 

AD 

NC 

0813 TAG TEAM 




WRESTLING 

U.S. GOLD 

SP 

NC 

0545 TEMPLE OF APSHAI 

U.S. GOLD 

AD 

NC 

0278 TEMPLE OF TERROR U.S. GOLD 

AR 

NC 

0848 THANATOS 

DURRELL 

AA 

ND 

0789 THE ARTIST 

TIMEWORKS 

GR 

ND 

0846 THE DETECTIVE 

QUICKSILVA 

AR 

NC 

0787 THE DISK DRIVE 




MANAGER 

TIMEWORK 

UT 

ND 

0788 THE HOME BANKER 

TIMEWORKS 

BU 

ND 

0804 THE KITCHEN 




MANAGER 

TIMEWORKS 

UT 

ND 

0790 THE MUSICIAN 

TIMEWORKS 

MU 

ND 

0875 THEY STOLE 




A MILLION 

ARIOLASOFT 

AA 

NC 

0983 THING BOUNCES 




BACK 

GREMLIN 

AR 

NC 


0950 TIGER MISSION 

STATUS 

SOFTWARE 

SI 

NC 

0260 TOP GUN 

OCEAN 

AR 

NC 

0827 TWIN TORNADO 

DR SOFTWARE 

SI 

NC 

0786 VALUECALC 

TIMEWORKS 

FE 

SD 

0785 VALUEWORD 

TIMEWORKS 

WP 

SD 

0767 VIZASTAR 64 
BACKUP DISK 

VIZA SOFTWARE 

UT 

ND 

0756 WEST BANK 

U.S. GOLD 

AR 

NC 

0982 WIZ BALL 

OCEAN 

AR 

NC 

0836 WONDER BOY 

ACTIVISION 

AR 

NC 

L. 25.000 

0850 500 CC GRAND PRIX 

MICROIDS 

SI 

ND 

0832 ALIENS (USA) 

ACTIVISION 

AR 

ND 

0953 BARBARIAN 

PALACE 

SOFTWARE 

AA 

ND 

0803 BIG TROUBLE 

IN LITTLE CHINA 

ELECTRIC 

DREAMS 

AA 

ND 

0894 CAMELOT WARRIOR 

ARIOLASOFT 

AA 

ND 

0895 CHAMP 

BASKETBALL 
(2 ON 2) 

ACTIVISION 

SP 

ND 

0254 DAM BUSTERS 

U.S. GOLD 

AR 

ND 

0941 ENDURO RACERS 

ACTIVISION 

SI 

ND 

0878 GREYFELL (LEGEND 
OF NORMA) 

STARLIGHT 

AA 

ND 

0711 INDOOR GAMES 

DATABYTE 

SP 

ND 

0582 INHERITANCE 

INFROGRAMES 

AD 

ND 

0958 KILLED UNTIL DEAD 

U.S. GOLD 

AD 

ND 

0584 L’AFFAIRE VERA 
CRUZ 

INFOGRAMES 

AD 

ND 

0993 LEADERBOARD 
EXECUTIVE 

U.S. GOLD 

SP 

ND 

0810 MARBLE MADNESS 

ARIOLASOFT 

AR 

ND 

0720 MASTERS OF 

UNIVERSE (ARCA) 

U.S. GOLD 

AR 

ND 

0942 MURDER ON THE 
ATLANTIC 

INFROGRAMES 

AD 

NC 

0695 MUTANTS 

OCEAN 

AR 

ND 

0768 NEMESIS 

KONAMI 

AR 

ND 

0707 POLAR PIERRE 

DATABYTE 

AR 

ND 

0729 SAILING 

ACTIVISION 

SP 

ND 

1017 SHADOWS 

OF MORDOR 

MELBOURNE 

HOUSE 

AD 

N D 

0866 SIX PACK (6 PRG.) 

ELITE 

RA 

ND 

0955 STIFFLIP & CO. 

PALACE 

SOFTWARE 

AD 

ND 

0506 STRIKE FORCE 
HARRIER 

MIRRORSOFT 

SI 

ND 

0725 SYDNEY AFFAIR 

INFROGRAMES 

AD 

ND 

0829 THE GREAT ESCAPE 

OCEAN 

AR 

ND 

0876 THEY STOLE 

A MILLION 

ARIOLASOFT 

AA 

ND 

0755 TOP GUN 

OCEAN 

AR 

ND 

0828 TWIN TORNADO 

DR SOFTWARE 

SI 

ND 

L. 29.000 

0821 CHOLO 

FIREBIRD 

AR 

NC 

0904 F-15 STRIKE EAGLE 

MICROPROSE 

SI 

ND 

0933 WAR GAMES 

U.S. GOLD 

RA 

NC 

L. 35.000 

0717 MINI OFFICE II 

DATABASE 

PUBLISH 

PI 

NC 

L. 39.000 

0696 ART STUDIO 

RAINBIRD 

GR 

ND 

0900 IMAGE SYSTEM 

C.R.L. 

GR 

NC 

0718 MINI OFFICE II 

DATABASE 

PUBLISH 

PI 

ND 

0943 MURDER ON THE 
ATLANTIC 

INFROGRAMES 

AD 

ND 

0934 WAR GAMES 

U.S. GOLD 

RA 

ND 

L. 49.000 

0737 HOLLYWOOD HI JINX INFOCOM 

AD 

ND 

0739 MOONMIST 

INFOCOM 

AD 

ND 

0705 PORTAL 

ACTIVISION 

ST 

ND 

L. 59.000 

0991 FIGHTER COMMAND U.S. GOLD 

ST 

ND 

0990 RINGS OF ZILFIN 

U.S. GOLD 

AD 

ND 

L. 99.000 

0458 PARTNER 

TIMEWORKS 

UT 

N R 


L. 14.900 

0361 MAN. IT. VIZAWRITE 

CLASSIC LAGO MA S L 

L. 18.000 

0920 ADVANCED 


PROGRAMMINO ON 


1 

GLENTOP 

MA 

NL 

0004 KIK START 

MASTERTRONIC 

SP 

ND 

0208 THAI BOXING 

ANCO 

AR 

SD 

0050 THE LAST V8 

M.A.D. 

AR 

ND 

0597 VIZASTAR 128 
BACKUP DISK 

VIZA SOFTWARE 

UT 

ND 

0598 VIZAWRITE 128 
BACKUP DISK 

VIZA SOFTWARE 

UT 

ND 

L. 19.900 

0360 MAN. IT VIZASTAR 
64128 

LAGO 

MA 

SL 

L. 59.000 

0105 3D GRAPHIC 

DRAWING BOARD 

GLENTOP 

AR 

ND 

L. 69.000 

0872 BUREAUCRACY 

INFOCOM 

AD 

ND 

L. 119.000 

0458 PARTNER 

TIMEWORKS 

UT 

SR 

L. 125.000 

0107 VIZAWRITE 

CLASSIC 128 

VIZA SOFTWARE 

AR 

NZ 

L. 159.000 

0106 VIZASTAR 128 

VIZA SOFTWARE 

AR 

NZ 


LEGENDA LISTINO ARTICOLI 


Genere: 

AA = Arcade/avventura (senza testo) 

AC = Accessorio 

AD = Avventura (con testo) 

AG = Accessorio GEOS 

AR = Arcade 

BU * Affari & finanza 

CW = Cinemaware 

DB = Database 

EX = Sistema esperto 

FE = Foglio elettronico 

GE = Gestionale 

GR = Grafica 

LI = Linguaggio 

MA = Manuale 

MU = Musica 

PI = Programma integrato 

RA = Raccolta di programmi 

SI = Simulazione 

SP = Sportivo 

ST = Strategico 

TA = Da tavolo 

UT = Utility 

WP = Gestione di testi 


M = Manuale in italiano (S = Si - N = 
No) 


c 

= Cassetta 

R 

= Cartuccia 

D 

= Disco 

Z 

= Cartuccia + 




disco 

L 

= Libro 




BUONO D’ORDINE 


Desidero ricevere i seguenti articoli: 


I prezzi sono intesi al pubblico I.V.A. inclusa 



CODICE 

COMPUTER 

TITOLO GIOCO 

PREZZO 





























Ordine minimo L. 20.000 SPESE POSTALI 

Pagamento in contrassegno TOTALE L 

4.000 


Cognome 

Nome 


Via 

Cap Città 

Prov Tel. 


Firma 

(se minorenne quella di un genitore) 

Gli ordini non firmati non verranno evasi. 

Completa le parti del buono d'ordine (o di una sua 
fotocopia) e spediscilo in busta chiusa a: 

Jackson Soft Mail Service - Via Rosellini, \2 - 20124 Milano 





32514 : 255 , 255 , 255 , 255 , 255 , 000,253 
32520 : 170 , 170 , 255 , 255 , 255 , 255,088 
32526 : 255 , 000 , 170 , 170 , 255 , 255,095 
32532 : 255 , 255 , 255 , 000 , 170 , 170,101 
32538 : 255 , 255 , 255 , 255 , 255 , 000, 021 
32544 : 170 , 170 , 255 , 255 , 255 , 255 , 112 
32550 : 255 , 000 , 170 , 170 , 255 , 255,119 
32556 : 255 , 255 , 255 , 000 , 171 , 171 , 127 
32562 : 255 , 255 , 255 , 255 , 255 , 000, 045 
32568 : 252 , 252 , 252 , 252 , 252 , 252, 032 
32574 : 252 , 000 , 232 , 237 , 237 , 237, 233 
32580 : 237 , 237 , 237 , 237 , 237 , 227, 200 
3258 6 : 227 , 227 , 227 , 227 , 227 , 227, 156 
32592 : 227 , 227 , 227 , 227 , 227 , 227, 162 
32598 : 227 , 227 , 227 , 227 , 227 , 227, 168 
32 604 : 227 , 227 , 227 , 227 , 227 , 227, 17 4 
32 610 : 227 , 227 , 227 , 227 , 227 , 232, 185 
32616 : 232 , 232 , 232 , 232 , 232 , 232 , 21 6 
32622 : 232 , 232 , 237 , 211 , 227 , 232, 201 
32628 : 232 , 232 , 232 , 232 , 232 , 232, 228 
32 634 : 232 , 232 , 232 , 232 , 232 , 232, 234 
32 640 : 232 , 232 , 232 , 232 , 232 , 232, 240 
32 646 : 243 , 2 43 , 243 , 243 , 232 , 232 , 034 
32652 : 232 , 232 , 227 , 232 , 232 , 232, 2 47 
32658 : 232 , 232 , 232 , 237 , 077 , 077, 209 
32664 : 077 , 077 , 045 , 211 , 227 , 232,253 
32 670 : 232 , 232 , 232 , 232 , 232 , 232, 014 
3267 6 : 232 , 232 , 232 , 232 , 232 , 232, 020 
32 682 : 232 , 243 , 243 , 243 , 248 , 239, 082 
32688 : 239 , 240 , 243 , 243 , 243 , 232, 080 
32 694 : 227 , 232 , 232 , 237 , 232 , 232, 038 
32700 : 047 , 045 , 212 , 077 , 077 , 077,211 
3270 6 : 239 , 237 , 211 , 035 , 047 , 226 , 165 
32712 : 232 , 232 , 232 , 232 , 232 , 232, 056 
32718 : 232 , 232 , 232 , 232 , 227 , 248, 073 
32724 : 240 , 239 , 240 , 239 , 239 , 240, 113 
32730 : 239 , 240 , 240 , 243 , 227 , 232, 103 
32736 : 232 , 227 , 211 , 237 , 047 , 237, 135 
32742 : 212 , 077 , 212 , 077 , 239 , 239, 006 
32748 : 232 , 237 , 211 , 227 , 232 , 232, 071 
32754 : 232 , 232 , 232 , 232 , 232 , 232, 098 
327 60 : 232 , 232 , 227 , 240 , 240 , 239, 122 
327 66 : 239 , 240 , 248 , 239 , 239 , 240, 163 
32772 : 240 , 227 , 227 , 232 , 232 , 232, 114 
32778 : 227 , 211 , 237 , 045 , 212 , 077,251 
32784 : 077 , 077 , 239 , 232 , 232 , 047, 152 
327 90 : 045 , 211 , 227 , 232 , 232 , 232, 177 

327 96 : 232 , 232 , 232 , 232 , 232 , 232, 140 
3280 ? : 232 , 055 , 115 , 240 , 239 , 240 , 131 
32808 : 240 , 239 , 240 , 048 , 055 , 227,0 65 
32814 : 227 , 232 , 232 , 232 , 232 , 232, 153 
32820 : 211 , 211 , 007 , 247 , 247 , 239, 190 
32826 : 247 , 253 , 077 , 077 , 077 , 077,098 
32832 : 237 , 211 , 227 , 232 , 232 , 232, 155 
32838 : 232 , 232 , 232 , 232 , 055 , 232, 005 
32844 : 232 , 224 , 127 , 240 , 240 , 112,227 
32850 : 231 , 232 , 232 , 048 , 227 , 232, 004 
32856 : 232 , 232 , 232 , 226 , 231 , 227, 188 

328 62 : 211 , 237 , 231 , 231 , 231 , 237, 192 
32868 : 231 , 077 , 077 , 077 , 232 , 237, 007 


32874 : 211 , 227 , 232 , 232 , 232 , 232, 192 
328 80 : 232 , 232 , 055 , 232 , 224 , 224, 031 
3288 6 : 231 , 224 , 231 , 232 , 224 , 224, 204 
328 92 : 232 , 048 , 227 , 232 , 232 , 232, 047 
328 98 : 232 , 226 , 231 , 232 , 227 , 211, 20 9 
32 904 : 237 , 231 , 231 , 237 , 231 , 077, 100 
32 910 : 077 , 039 , 232 , 232 , 232 , 237, 167 
32916 : 211 , 227 , 232 , 232 , 232 , 232, 234 
32922 : 055 , 224 , 2 40 , 2 40 , 224 , 231, 088 
32 928 : 231 , 240 , 247 , 240 , 224 , 048 , 110 
32 934 : 227 , 232 , 232 , 232 , 232 , 232, 017 
32 940 : 039 , 2 47 , 247 , 247 , 227 , 211, 110 
32946 : 237 , 253 , 247 , 077 , 077 , 077, 122 
32952 : 232 , 232 , 232 , 232 , 237 , 2 11, 024 
32 958 : 227 , 232 , 232 , 224 , 003 , 240, 068 
32 9 64 : 127 , 112 , 231 , 224 , 232 , 127,225 
32 970 : 112 , 112 , 240 , 048 , 227 , 232 , 149 
32 97 6 : 232 , 232 , 232 , 232 , 247 , 247, 094 
32 982 : 239 , 247 , 232 , 227 , 211 , 253, 087 
32988 : 237 , 253 , 253 , 045 , 232 , 232, 192 
32994 : 232 , 077 , 237 , 232 , 237 , 211, 172 
33000 : 227 , 232 , 063 , 224 , 224 , 224, 146 
3300 6 : 240 , 224 , 224 , 240 , 224 , 224, 078 
33012 : 239 , 048 , 227 , 232 , 232 , 232, 174 
33018 : 232 , 232 , 047 , 239 , 232 , 239 , 191 
33024 : 247 , 247 , 247 , 243 , 211 , 239 , 154 
33030 : 047 , 047 , 232 , 237 , 077 , 077, 211 
33036 : 212 , 077 , 232 , 237 , 211 , 227, 184 
330 42 : 227 , 048 , 232 , 239 , 224 , 239, 203 
330 48 : 239 , 224 , 239 , 239 , 048 , 227, 216 
33054 : 227 , 232 , 232 , 232 , 232 , 232, 137 
330 60 : 047 , 227 , 115 , 035 , 239 , 227,158 
330 66 : 227 , 035 , 227 , 211 , 045 , 232, 251 
33072 : 232 , 237 , 237 , 077 , 077 , 077,217 
33078 : 232 , 232 , 232 , 211 , 211, 0 63, 211 
33084 : 0 63 , 0 63 , 0 63 , 0 63 , 063 , 048 , 167 
330 90 : 048, 0 63 , 227 , 232 , 227 , 232,071 
330 96 : 232 , 232 , 232 , 227 , 227 , 035, 233 
33102 : 047 , 224, 22 6 , 047 , 224 , 035,113 
33108 : 035 , 035 , 211 , 237 , 232 , 237,047 
33114 : 237 , 237 , 077 , 077 , 232 , 232, 158 
33120 : 232 , 047 , 045 , 211 , 035 , 226,124 
3312 6 : 22 6 , 047,22 6 , 047 , 047 , 047,230 
33132 : 232 , 232 , 227 , 232 , 232 , 232, 215 
33138 : 232 , 227 , 224 , 232 , 224 , 224 , 197 
33144 : 224 , 224 , 232 , 232 , 224 , 227, 203 
33150 : 232 , 227 , 21 1 , 237 , 077 , 237, 0 67 
33156 : 077 , 077 , 232 , 232 , 232 , 047, 005 
33162 : 047 , 226 , 2 11 , 211 , 047 , 047 , 159 
33168 : 22 6 , 047 , 047 , 047 , 232 , 232,207 
33174 : 227 , 232 , 232 , 232 , 232 , 232, 001 
33180 : 227 , 224 , 232 , 22 4 , 224 , 224, 231 
3318 6 : 232 , 224 , 224 , 232 , 232 , 232, 002 
33192 : 227 , 211 , 237 , 232 , 232 , 232, 003 
33198 : 232 , 232 , 077 , 077 , 077 , 077,178 
332 04 : 237 , 045 , 2 11 , 227 , 22 6 , 047, 149 
33210 : 22 6 , 232 , 232 , 232 , 227 , 232, 031 
33216 : 232 , 232 , 227 , 227 , 227 , 224, 025 
33222 : 126 , 126 , 234 , 12 6 , 126 , 112, 024 
33228 : 231 , 227 , 227 , 232 , 232 , 232, 04 9 
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33234 : 227 , 211 , 237 , 232 , 232 , 232 , 
33240 : 077 , 036 , 077 , 077 , 253 , 247 , 
33246 : 253 , 211 , 211 , 039 , 039 , 039 , 
33252 : 232 , 232 , 227 , 232 , 232 , 232 , 
33258 : 227 , 232 , 224 , 224 , 231 , 234 , 
33264 : 174 , 231 , 231 , 231 , 232 , 232 , 
33270 : 224 , 232 , 232 , 232 , 232 , 227 , 
33276 : 211 , 237 , 232 , 232 , 077 , 228 , 
33282 .- 077 , 036 , 045 , 039 , 039 , 039 , 
33288 : 045 , 211 , 227 , 039 , 226 , 232 , 
33294 : 227 , 232 , 232 , 232 , 227 , 224 , 
33300 : 224 , 231 , 224 , 224 , 160 , 224 , 
33306 : 224 , 224 , 232 , 224 , 227 , 232 , 
33312 : 232 , 232 , 232 , 232 , 232 , 211 , 
33318 : 211 , 232 , 077 , 228 / 039 , 036 , 
33324 : 045 , 039 , 039 , 039 , 039 , 045 , 
33330 : 211 , 035 , 232 , 232 , 227 , 232 , 
33336 : 232 , 232 , 227 , 231 , 224 , 240 , 
33342 : 126 , 234 , 162 , 224 , 224 , 254 , 
33348 : 231 , 224 , 227 , 232 , 232 , 232 , 
33354 : 232 , 232 , 232 , 232 , 227 , 211 , 
33360 : 045 , 039 , 247 , 242 , 039 , 226 , 
33366 : 237 , 077 , 077 , 077 , 077 , 045 , 
33372 : 211 , 227 , 227 , 232 , 232 , 232 , 
33378 : 227 , 239 , 240 , 224 , 254 , 224 , 
33384 : 174 , 232 , 254 , 254 , 240 , 048 , 
33390 : 227 , 232 , 232 , 232 , 232 , 232 , 
33396 : 232 , 232 , 232 , 227 , 211 , 045 , 
33402 : 247 , 247 , 039 , 226 , 237 , 237 , 
33408 : 077 , 077 , 077 , 242 , 045 , 211 , 
33414 : 227 , 232 , 232 , 232 , 232 , 227 , 
33420 : 224 , 232 , 224 , 254 , 254 , 240 , 
33426 : 224 , 232 , 224 , 224 , 232 , 232 , 
33432 : 232 , 232 , 232 , 232 , 232 , 232 , 
33438 : 232 , 226 , 047 , 035 , 211 , 045 , 
33444 : 247 , 039 , 045 , 077 , 077 , 212 , 
33450 : 077 , 047 , 047 , 232 , 237 , 232 , 
33456 : 232 , 232 , 232 , 227 , 224 , 227 , 
33462 : 224 , 224 , 224 , 224 , 224 , 239 , 
33468 : 227 , 232 , 232 , 232 , 232 , 232 , 
33474 : 232 , 232 , 232 , 232 , 232 , 232 , 
33480 : 047 , 047 , 035 , 211 , 045 , 226 , 
33486 : 237 , 212 , 212 , 077 , 077 , 047 , 
33492 : 224 , 224 , 237 , 232 , 232 , 232 , 
33498 : 232 , 232 , 232 , 232 , 232 , 232 , 
33504 : 232 , 232 , 227 , 227 , 232 , 232 , 
33510 : 232 , 232 , 232 , 232 , 232 , 232 , 
33516 : 232 , 232 , 232 , 232 , 232 , 047 , 
33522 : 047 , 047 , 211 , 211 , 047 , 047 , 
33528 : 047 , 047 , 047 , 232 , 224 , 224 , 
33534 : 237 , 232 , 232 , 227 , 227 , 227 , 
33540 : 227 , 227 , 227 , 227 , 227 , 227 , 
33546 : 227 , 227 , 227 , 227 , 227 , 227 , 
33552 : 227 , 227 , 227 , 227 , 227 , 227 , 
33558 : 227 , 227 , 227 , 227 , 227 , 227 , 
33564 : 22 - 7 , 227 , 237 , 237 , 237 , 237 , 
33570 : 237 , 237 , 237 , 237 , 237 , 232 , 
3357 6 : 128 , 240 , 224 , 080 , 064 , 240 , 
33582 : 240 , 160 , 240 , 240 , 064 , 096 , 
33588 : 000 , 240 , 240 , 016 , 064 , 080 , 


33594 : 240 , 17 6 , 0 64, 17 6 , 0 64 , 208,218 
33600 : 0 64 , 14 4 , 032 , 240 , 144 , 224 , 144 
33606 : 0 64 , 240 , 080 , 160 , 160 , 240,246 
33612 : 240 , 064 , 160 , 240 , 000 , 045,057 
33618 : 22 1 , 253 , 013 , 013 , 253 , 013, 080 
3362 4 : 208 , 208 , 240 , 035 , 003 , 243, 001 
33630 : 243 , 147 , 163 , 243 , 067 , 131, 064 
33636 : 227 , 243 , 083 , 163 , 003 , 067, 118 
33642 : 163 , 163 , 163 , 067 , 192 , 208,038 
33648 : 240 , 160 , 131 , 211 , 243 , 195,012 
33654 : 000 , 208 , 240 , 013 , 013 , 237, 061 
33660 : 173 , 016 , 160 , 064 , 240 , 000 , 009 
33666 : 160, 2 40 , 144 , 003 , 17 9 , 243 , 075 
33672 : 21 1 , 0 99 , 243 , 243 , 01 9 , 131,058 
33678 : 243 , 131 , 211 , 083 , 243 , 17 6, 205 
33684 : 17 6 , 240 , 000 , 072 , 072 , 248 , 188 
33690 : 064 , 160 , 240 , 243 , 160 , 064 , 0 61 
33696 : 240 , 240 , 173 , 013 , 237 , 240, 023 
33702 : 128 , 240 , 224 , 144,18 9 , 240,051 
33708 : 064 , 000 , 003 , 243 , 003 , 163,136 
33714 : 0 67 , 083 , 243 , 163 , 067 , 243,020 
33720 : 243 , 019 , 000 , 240 , 024 , 232,174 
33726 : 008 , 248 , 200 , 056 , 248 , 184, 110 
33732 : 168 , 144 , 240 , 016 , 016 , 240,252 
33738 : 000 , 128 , 205 , 240 , 240 , 208, 199 
33744 : 160 , 064 , 253 , 045 , 157 , 224, 087 
33750 : 160 , 160 , 227, 0 67 , 243 , 131, 178 
33756 : 243 , 163 , 019 , 243 , 083 , 131, 078 
337 62 : 192 , 067 , 147 , 248 , 184 , 072, 112 
337 68 -. 240 , 200 , 168 , 024 , 243 , 032,115 
33774 : 128 , 240 , 160 , 051 , 000 , 240,033 
33780 : 000 , 000 , 240 , 032 , 240 , 176 , 164 
3378 6 : 253 , 10 9 , 253 , 253 , 160 , 160 , 158 
337 92 : 032 , 243 , 227 , 227 , 179 , 099,239 

337 98 : 0 67 , 17 9,0 67 , 243 , 211 , 17 6,181 
33804 : 000 , 087 , 248 , 008 , 072 , 040, 211 
33810 : 199 , 135 , 064 , 096 , 080 , 240, 064 
33816 : 0 96 , 019 , 019 , 243 , 240 , 224, 097 
33822 : 157 , 253 , 253 , 013 , 253 , 240, 175 
33828 : 240 , 240 , 240 , 240 , 240 , 240, 196 
33834 : 240 , 243 , 243 , 211 , 067 , 243, 00 9 
33840 : 003 , 035 , 240 , 247 , 247 , 151,203 
3384 6 : 240 , 151 , 055 , 07 9 , 000 , 135,202 
33852 : 167 , 071 , 192 , 160 , 240 , 131, 253 
33858 : 035 , 243 , 099 , 240 , 192 , 160,011 

338 64 : 077 , 013 , 253 , 240 , 164 , 240,035 
33870 : 17 6 , 240 , 221 , 112 , 240 , 128,171 
3387 6 : 195 , 243 , 243 , 163 , 003 , 243,150 
33882 : 160 , 215 , 231 , 247 , 240 , 135,038 
33888 : 064 , 247 , 199 , 167 , 247 , 039,035 
33894 : 176 , 240 , 000 , 019 , 003 , 243, 015 
33900 : 243 , 211 , 224 , 224 , 208 , 253, 191 
33906 : 157 , 208 , 020 , 240 , 240 , 173 , 128 
33912 : 221 , 077 , 253 , 032 , 192 , 064, 191 
33918 : 0 67 , 003 , 243 , 211 , 016 , 247, 145 
33924 : 167 , 167 , 183 , 080 , 000 , 167 , 128 
33930 : 240 , 135 , 039 , 231 , 240 , 240,239 
33936 : 160, 0 67 , 243 , 179 , 195 , 243,207 
33942 : 227, 17 9 , 016 , 144 , 240 , 016,204 
33948 : 244, 0 64 , 240 , 128 , 141 , 253,202 


045 

215 

246 

079 

070 

035 

089 

189 

021 

220 

108 

027 

109 

123 

093 

034 

195 

162 

006 

166 

160 

150 

164 

173 

226 

026 

217 

015 

075 

089 

236 

032 

234 

008 

186 

093 

018 

014 

005 

039 

050 

043 

044 

057 

074 

070 

086 

163 

084 

045 

100 

086 

092 

098 

104 

150 

171 

248 

062 

180 


10/87 SUPERCOMMODORE C64 4128 65 


33954 : 157 , 173 , 064 , 240 , 032 , 035 , 
33960 : 163 , 083 , 007 , 215 , 240 , 159 , 
33966 : 192 , 215 , 247 , 160 , 095 , 079 , 
33972 : 039 , 215 , 240 , 160 , 000 , 211 , 
33978 : 243 , 179 , 227 , 243 , 227 , 179 , 
33984 : 163 , 240 , 240 , 176 , 224 , 240 , 
33990 : 208 , 160 , 253 , 045 , 173 , 000 , 
33996 : 240 , 253 , 176 , 240 , 160 , 195 , 
34002 : 064 , 255 , 047 , 015 , 071 , 087 , 
34008 : 231 , 231 , 255 , 255 , 208 , 255 , 
34014 : 240 , 208 , 144 , 067 , 163 , 243 , 
34020 : 243 , 035 , 163 , 131 , 243 , 211 , 
34026 : 003 , 240 , 208 , 045 , 253 , 253 , 
34032 : 221 , 080 , 208 , 240 , 032 , 000 , 
34038 : 253 , 160 , 144 , 016 , 240 , 159 , 
34044 : 096 , 240 , 047 , 128 , 064 , 191 , 
34050 : 160 , 240 , 079 , 240 , 096 , 240 , 
34056 : 240 , 003 , 163 , 227 , 243 , 240 , 
34062 : 160 , 064 , 000 , 192 , 240 , 064 , 
34068 : 000 , 064 , 240 , 173 , 173 , 240 , 
34074 : 100 , 224 , 000 , 064 , 253 , 013 , 
34080 : 173 , 208 , 240 , 144 , 048 , 240 , 
34086 : 240 , 128 , 016 , 079 , 255 , 176 , 
34092 : 240 , 243 , 160 , 096 , 064 , 243 , 
34098 : 035 , 000 , 224 , 032 , 160 , 255 , 
34104 : 239 , 032 , 223 , 240 , 240 , 240 , 
34110 : 240 , 240 , 253 , 032 , 244 , 160 , 
34116 : 208 , 240 , 253 , 077 , 253 , 253 , 
34122 : 208 , 128 , 032 , 083 , 067 , 003 , 
34128 : 243 , 067 , 003 , 243 , 243 , 163 , 
34134 : 096 , 064 , 080 , 003 , 243 , 080 , 
34140 : 031 , 095 , 255 , 255 , 255 , 255 , 
34146 : 239 , 255 , 255 , 240 , 243 , 240 , 
34152 : 240 , 240 , 240 , 240 , 240 , 240 , 
34158 : 253 , 173 , 253 , 253 , 253 , 253 , 
34164 : 240 , 240 , 067 , 243 , 243 , 131 , 
34170 : 067 , 243 , 243 , 243 , 240 , 240 , 
34176 : 240 , 243 , 243 , 243 , 080 , 243 , 
34182 : 255 , 255 , 255 , 255 , 239 , 255 , 
34188 : 243 , 243 , 067 , 243 , 240 , 240 , 
34194 : 240 , 253 , 189 , 253 , 253 , 253 , 
34200 : 240 , 240 , 240 , 240 , 240 , 240 , 
34206 : 032 , 240 , 243 , 243 , 227 , 243 , 
34212 : 243 , 243 , 240 , 240 , 240 , 243 , 
34218 : 240 , 240 , 240 , 247 , 240 , 128 , 
34224 : 240 , 240 , 240 , 254 , 240 , 240 , 
34230 : 064 , 243 , 243 , 067 , 064 , 240 , 
34236 : 240 , 253 , 253 , 253 , 240 , 240 , 
34242 : 240 , 240 , 080 , 253 , 240 , 240 , 
34248 : 240 , 243 , 131 , 243 , 243 , 243 , 
34254 : 064 , 240 , 240 , 243 , 240 , 247 , 
34260 : 231 , 247 , 240 , 240 , 240 , 240 , 
34266 : 240 , 240 , 247 , 247 , 067 , 243 , 
34272 : 243 , 243 , 227 , 240 , 240 , 240 , 
34278 : 253 , 253 , 240 , 240 , 240 , 240 , 
34284 : 240 , 253 , 253 , 157 , 240 , 240 , 
34290 : 240 , 243 , 243 , 243 , 064 , 240 , 
34296 : 240 , 003 , 064 , 247 , 247 , 240 , 
34302 : 247 , 247 , 254 , 247 , 247 , 247 , 
34308 : 087 , 243 , 240 , 243 , 243 , 243 , 
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34314 : 243 , 243 , 243 , 240 , 064 , 253 , 016 
34320 : 240 , 240 , 253 , 240 , 000 , 253,218 
3432 6 : 205 , 141 , 0 45 , 240 , 080 , 208,173 
34332 : 243 , 131 , 032 , 064 , 240 , 067, 037 
34338 : 224 , 016 , 247 , 222 , 0 64 , 160 , 199 
34344 : 240 , 231 , 239 , 240 , 176 , 179, 065 
34350 : 144, 2 43 , 003 , 163 , 227 , 003 , 0 61 
34356 : 003 , 243 , 160 , 224 , 000 , 253,167 
34362 : 253 , 045 , 109 , 077 , 000 , 128, 158 
34368 : 208 , 064 , 160 , 144 , 240 , 096,208 
34374 : 0 96 , 240 , 128 , 099 , 208 , 080, 153 
34380 : 254 , 191 , 240 , 010 , 128 , 000, 131 
3438 6 : 240 , 240 , 254 , 254 , 240 , 195, 225 
34392 : 003 , 243 , 211 , 163 , 243 , 243, 170 
34398 : 163 , 016 , 224 , 192 , 013 , 253 , 187 
3440 4 : 013 , 013 , 240 , 244 , 144 , 016 , 002 
34410 : 240 , 077 , 240 , 208 , 208 , 064, 119 
34416 : 144 , 163 , 243 , 176 , 111 , 240 , 165 
34422 : 223 , 160 , 208 , 094 , 063 , 032, 130 
34428 : 255 , 211 , 003 , 01 9 , 243 , 2 43, 074 
34434 : 211, 0 67 , 243 , 163 , 243 , 243,020 
34440 : 179 , 17 6 , 240 , 240 , 253 , 253, 197 
3444 6 : 224 , 144 , 240 , 240 , 144 , 189 , 043 
34452 : 237 , 253 , 032 , 128 , 240 , 003, 017 
34458 : 003 , 0 64 , 243 , 0 64 , 003 , 179 , 198 
344 64 : 243 , 131 , 067 , 240 , 176 , 051 , 044 
34470 : 243 , 083 , 163 , 035 , 243 , 035,200 
3447 6 : 003 , 211 , 243 , 163 , 243 , 067,078 
34482 : 144 , 208 , 240 , 253 , 128 , 032,159 
34488 : 000 , 240 , 016 , 237 , 237 , 045 , 191 
34494 : 17 6 , 240 , 240 , 035 , 195 , 243,039 
34500 : 147 , 131 , 243 , 131 , 019 , 083,182 
34506 : 240 , 000 , 195 , 243 , 243 , 195, 038 
34512 : 051 , 243, 0 67 , 163 , 163 , 083,210 
34518 : 067, 0 99 , 243 , 035 , 147 , 211,248 
34524 : 240 , 080 , 237 , 077 , 109 , 109,048 
34530 : 253 , 045 , 221 , 013 , 240 , 240, 214 
34536 : 208 , 016 , 22 4 , 208 , 17 6 , 240, 024 
34542 : 208 , 032 , 144 , 240 , 240,17 6,254 
34548 : 240 , 176 , 208 , 000 , 240 , 016 , 100 
34554 : 240 , 240 , 192 , 000 , 064 , 240,202 
34560 : 128 , 128 , 096 , 080 , 000 , 032, 208 
34566 : 240 , 032 , 192 , 128 , 240 , 240,054 
34572 : 096 , 064 , 048 , 240 , 001 , 000,205 
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52 fascicoli 

da rilegare in: 

4 splendidi volumi 

con un totale di 1050 pagine 
oltre 5000 fotografie e illustrazioni 


ELETTRICITÀ & ENERGIA è la grande opera del Gruppo 
Editoriale Jackson nata per tutti coloro che intendono ac- 
quisire la padronanza più completa delle fonti energetiche, 
dalle tecnologie utilizzate, fino alle principali applicazioni. 

Grande spazio è dedicato all 'elettricità, dalle sue leggi 
fondamentali, fino ai suoi più comuni settori di utilizzo. 
L’elettricità è, infatti, tra tutte le risorse energetiche, quella, 
con cui chiunque di noi ha quotidianamente a che fare. 

Rivolta all’hobbista oltre che al tecnico, ELETTRICITÀ & 
ENERGIA riserva un buon numero di pagine, in ogni fasci- 
colo, anche a nozioni di tipo pratico, dall’impiantistica al 
“fai da te” elettrico. 

Tutti gli argomenti sono trattati con lo stile e la professiona- 
lità delle Grandi Opere Jackson. 
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